home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / hf^k-1.dms / in.adf / StormC Install-Script < prev    next >
Encoding:
Text File  |  1996-01-20  |  101.9 KB  |  3,535 lines
  1. ;*************************************************************************
  2. ;*  StormC Installer Version 2.0  28 Dezember 1996                       *
  3. ;*                                                                       *
  4. ;*  Installer Revision by Jürgen Haage                                   *
  5. ;*  ©1996 HAAGE & PARTNER Computer GmbH                                  *
  6. ;*                                                                       *
  7. ;*  If you have any installer questions please let us know!              *
  8. ;*                                                                       *
  9. ;*************************************************************************
  10. ;
  11. ; $VER: StormC V2.0 Install Version 2.0 (23.12.96)
  12. ; Version inklusive GoldED
  13.  
  14. (set install_lokale_english  1)
  15. (set install_lokale_german   2)
  16. ;(set install_lokale_italien  4)
  17. ;(set install_lokale_frensh   8)
  18.  
  19. (set install_lokale_default install_lokale_english) ; Deutschsprachige Installieren
  20.  
  21. (if (= @language "deutsch") (
  22. (set install_lokale_default install_lokale_german) ; Deutschsprachige Installieren
  23. ))
  24.  
  25.     (set #lokale_select_english      "Englisch")
  26.     (set #lokale_select_german       "Deutsch")
  27. ;    (set #lokale_select_italien      "Italiano")
  28. ;    (set #lokale_select_frensh       "Französisch")
  29.  
  30.     (set #tooltype_select_pubscreen  "PUBSCREEN=STORMC")
  31.     (set #tooltype_select_quite      "QUIET=TRUE")
  32.     (set #tooltype_select_hothelp    "HOTHELP=TRUE")
  33.     (set #tooltype_select_golded     "GOLDED=TRUE")
  34.     (set #tooltype_select_savemem    "SAVEMEM=TRUE")
  35.  
  36. (complete 0)
  37.  
  38. ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
  39. ; Versionen.
  40.  
  41. (set stcpp-version "Version 2.0")
  42. (set stcpp-date "(07 Dec 96)")
  43.  
  44. ; // Die Dateigrößen
  45.  
  46. (set size-stormcpp          19724)
  47. (set size-stormc           442652)
  48. (set size-stormed          190480)
  49. (set size-stormlink         66392)
  50. (set size-stormshell       321000)
  51. (set size-stormrun         237592)
  52. (set size-stormasm          64984)
  53. (set size-stormpics         46910)
  54. (set size-stormlex         102361)
  55. (set size-stormlibrarian    32816)
  56. (set size-catalogs         100000)
  57. (set size-help            2400563)
  58. (set size-mathlibs         245856)
  59. (set size-libs            1294012)
  60. (set size-ansilib          314885)
  61. (set size-cincl            947861)
  62. (set size-assincl          646133)
  63. (set size-demos             96066)
  64. (set size-phxass           508427)
  65. (set size-muilib          1354191)
  66. (set size-appmanager        43204)
  67. (set size-source            80480)
  68. (set size-wizlib           280768)
  69. (set size-ged               39443)
  70. ;(set size-objectC         1314228)
  71. (set size-golded          2100000)
  72.  
  73. (set size-komplett      (/ ( + size-stormcpp size-stormc size-stormed size-stormlink size-stormshell size-stormrun size-stormasm size-stormpics size-stormlex size-stormlibrarian size-catalogs size-help size-mathlibs size-libs size-ansilib size-cincl size-assincl size-demos size-phxass size-muilib size-appmanager size-source size-wizlib size-ged size-golded ) 1024))
  74.  
  75. ;====================================================================
  76. ; Initialisierungen
  77.  
  78. ; --- English strings ---
  79.  
  80.     (set #yeskey "Yes")
  81.     (set #nokey "No")
  82.  
  83.     (set #wrongos "\n Sorry, you will need OS2.04 or better\n")
  84.  
  85.     (set #wrongcpu "\n Sorry, you will need min. a 68020 CPU to use StormC\n")
  86.  
  87.     (set #welcome (cat "\n"
  88.         "Welcome to the installation of the new\n\n"
  89.         "C/C++ standard: StormC\n\n"
  90.         ""stcpp-version " of "stcpp-date"\n\n"
  91.         "This script copies all the files of StormC\n\n\n"
  92.         "© 96/97 HAAGE&PARTNER Computer GmbH\n"
  93.         ))
  94.  
  95.     (set #oldversion (cat "\n"
  96.         "There is an old version of StormC on your\n"
  97.         "harddisk!\n"
  98.         "" (getassign "STORMC") "\n"
  99.         ))
  100.  
  101.     (set #oldversion_help (cat "\n"
  102.         "Choose an option!\n"
  103.         ""
  104.         ))
  105.  
  106.     (set #modus-average (cat "\n"
  107.         "AVERAGE MODE:\n"
  108.         "You should have 12 MB of free disk space!\n\n"
  109.         "You will be asked for a drawer for the\n"
  110.         "installation of StormC.\n\n"
  111.         "Everything else will be optimised to the needs\n"
  112.         "of your Amiga system."
  113.         ))
  114.  
  115.     (set #new    "New installation")
  116.     (set #update "Update your existing version of StormC")
  117. ;    (set #remove "Delete StormC")
  118.  
  119.     (set #chose_path (cat
  120.         "Please select a device or a drawer for your\n"
  121.         "installation of StormC.\n\n"
  122.         "A drawer named \"StormC\" will be created\n"
  123.         "automatically!"
  124.         ))
  125.  
  126.     (set #chose_path_help (cat  "\n"
  127.         "Select 'Show drives' to get an overview of all\n"
  128.         "devices.\n"
  129.         "Please select one of the devices on top of\n"
  130.         "the list.\n"
  131.         "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0:\"\n"
  132.         "Do not use \"DF0:\", \"DF1:\", \"DF2:\",\n"
  133.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", \n"
  134.         "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"! \n\n"
  135.         "A drawer named \"StormC\" will be created\n"
  136.         "automatically!\n\n"
  137.         @askdir-help))
  138.  
  139.     (set #auswahlhilfe (cat "\n"
  140.         "There is an old version of StormC on your\n"
  141.         "harddisk!\n\n"
  142.         "Select \"Yes\" if you want to overwrite the\n"
  143.         "old one. Otherwise select \"No\"!\n"
  144.         ))
  145.  
  146.     (set #wrk_globalhelp (cat "\n"
  147.         "If you select \"No\" some of your files will\n"
  148.         "be changed. In some cases StormC will not work\n"
  149.         "correct !"
  150.         ))
  151.  
  152.     (set #ask_compiler (cat "\n"
  153.         "Do you want to install \"StormC\" now ?\n\n"
  154.         #wrk_globalhelp
  155.         ))
  156.  
  157.     (set #wrk_justamoment (cat "\n"
  158.         "This will last some time!\n"
  159.         "Please wait ...\n"
  160.         ))
  161.  
  162.     (set #wrk_compdecrunch (cat "\n"
  163.         "Unpacking...\n\n"
  164.         "StormC - ANSI C & C++ compiler\n\n"
  165.         #wrk_justamoment
  166.         ))
  167.  
  168.     (set #decrunch_error (cat "\n\n"
  169.         "Error during unpacking!\n\n"
  170.         "Maybe diskspace got low or you have protected\n"
  171.         "some files.\n"
  172.         ))
  173.  
  174.     (set #ask_editor (cat "\n"
  175.         "Do you want to install the editor \"StormED\"?\n\n"
  176.         #wrk_globalhelp
  177.         ))
  178.  
  179.     (set #wrk_eddecrunch (cat "\n"
  180.         "Unpacking...\n\n"
  181.         "StormED\n\n"
  182.         #wrk_justamoment
  183.         ))
  184.  
  185.     (set #ask_linker (cat "\n"
  186.         "Do you want to install the linker \"StormLink\"?\n"
  187.         #wrk_globalhelp
  188.         ))
  189.  
  190.     (set #wrk_linkdecrunch (cat "\n"
  191.         "Unpacking...\n\n"
  192.         "StormLink\n\n"
  193.         #wrk_justamoment
  194.         ))
  195.  
  196.     (set #ask_decrunchlib (cat "\n"
  197.         "Do you want to update the OS 3.1 ANSI-Libraries?\n\n"
  198.         #wrk_globalhelp
  199.         ))
  200.  
  201.     (set #wrk_libdecrunch (cat "\n"
  202.         "Unpacking OS 3.1 Libraries...\n\n"
  203.         #wrk_justamoment
  204.         ))
  205.  
  206.     (set #wrk_fastlibdecrunch (cat "\n"
  207.         "Unpacking special fast version of\n"
  208.         "ANSI library...\n\n"
  209.         "With this Library you are able to create very\n"
  210.         "short and fast executables!\n\n"
  211.         #wrk_justamoment
  212.         ))
  213.  
  214.     (set #wrk_muilibdecrunch (cat "\n"
  215.         "Unpacking the Mui-Classlibrary...\n\n"
  216.         "With this library you can create MUI programs in\n"
  217.         "the C++ programing language.\n\n"
  218.         #wrk_justamoment
  219.         ))
  220.  
  221.     (set #wrk_librariandecrunch (cat "\n"
  222.         "Unpacking the Link-Librarymaker \"StormLibrarian\"\n\n"
  223.         "The librarian makes it possible to create link\n"
  224.         "very easy!\n\n"
  225.         #wrk_justamoment
  226.         ))
  227.  
  228.     (set #wrk_guidedecrunch (cat "\n"
  229.         "Unpacking AmigaGuide icons...\n\n"
  230.         #wrk_justamoment
  231.         ))
  232.  
  233. ;    (set #ask_catalog (cat "\n"
  234. ;        "Do you want to update the German catalogue?\n\n"
  235. ;        #wrk_globalhelp
  236. ;        ))
  237.  
  238.     (set #wrk_localedecrunchger (cat "\n"
  239.         "Unpacking the German catalogue...\n\n"
  240.         #wrk_justamoment
  241.         ))
  242.  
  243.     (set #wrk_localedecrunchital (cat "\n"
  244.         "Unpacking the italien Catalog...\n\n"
  245.         #wrk_justamoment
  246.         ))
  247.  
  248.     (set #wrk_appmanlibdecrunch (cat "\n"
  249.         "Unpacking...\n\n"
  250.         "Application-Manager\n\n"
  251.         #wrk_justamoment
  252.         ))
  253.  
  254.     (set #ask_mathlibdecrunch (cat "\n"
  255.         "Do you want to install the math libraries?\n\n"
  256.         #wrk_globalhelp
  257.         ))
  258.  
  259.     (set #wrk_mathlibdecrunch (cat "\n"
  260.         "Unpacking...\n\n"
  261.         "Math libraries\n"
  262.         #wrk_justamoment
  263.         ))
  264.  
  265.     (set #ask_onlinedocudecrunch (cat "\n"
  266.         "Do you want to install the Online-Documentation?\n\n"
  267.         ))
  268.  
  269.     (set #wrk_onlinedocudecrunch (cat "\n"
  270.         "Unpacking...\n\n"
  271.         "Online-Documentation\n\n"
  272.         #wrk_justamoment
  273.         ))
  274.  
  275.     (set #ask_sourcedecrunch (cat "\n"
  276.         "Do you want to install the new Startup-Code\n"
  277.         "sources and the source of the lokale catalogs?\n"
  278.         ))
  279.  
  280.     (set #wrk_sourcedecrunch (cat "\n"
  281.         "Unpacking...\n\n"
  282.         "Startup-Code sources\n\n"
  283.         #wrk_justamoment
  284.         ))
  285.  
  286.     (set #ask_startupdecrunch (cat "\n"
  287.         "Do you want to install the new Startup-Codes\n"
  288.         "objectfiles?\n\n"
  289.         #wrk_globalhelp
  290.         ))
  291.  
  292.     (set #wrk_startupdecrunch (cat "\n"
  293.         "Unpacking...\n\n"
  294.         "Startup-Code objectfiles\n\n"
  295.         #wrk_justamoment
  296.         ))
  297.  
  298.  
  299.     (set #ask_graficdecrunch (cat "\n"
  300.         "Do you want to install the new graphics?\n"
  301.         ))
  302.  
  303.     (set #wrk_gfxdecrunch (cat "\n"
  304.         "Unpacking...\n\n"
  305.         "Graphics\n"
  306.         #wrk_justamoment
  307.         ))
  308.  
  309.     (set #ask_lexdecrunch (cat "\n"
  310.         "Do you want to install the new dictionaries\n"
  311.         "for the editor?\n"
  312.         ))
  313.  
  314.     (set #wrk_lexdecrunch (cat "\n"
  315.         "Unpacking...\n\n"
  316.         "Editor dictionaries\n"
  317.         #wrk_justamoment
  318.         ))
  319.  
  320.     (set #ask_asmdecrunch (cat "\n"
  321.         "Do you want to install the new assembler\n"
  322.         "interface?\n"
  323.         ))
  324.  
  325.     (set #wrk_asmdecrunch (cat "\n"
  326.         "Unpacking...\n\n"
  327.         "Assembler interface\n"
  328.         #wrk_justamoment
  329.         ))
  330.  
  331.     (set #ask_phxassdecrunch (cat "\n"
  332.         "Do you want to install the new Assembler PhxAss?\n"
  333.         ))
  334.  
  335.     (set #wrk_phxassdecrunch (cat "\n"
  336.         "Unpacking...\n\n"
  337.         "PhxAssembler\n\n"
  338.         #wrk_justamoment
  339.         ))
  340.  
  341.     (set #ask_cppdecrunch (cat  "\n"
  342.         "Do you want to install the new loader\n"
  343.         "\"StormCPP\"?\n\n"
  344.         #wrk_globalhelp
  345.         ))
  346.  
  347.     (set #wrk_cppdecrunch (cat "\n"
  348.         "Unpacking loader...\n\n"
  349.         #wrk_justamoment
  350.         ))
  351.  
  352.     (set #wrk_customdecrunch (cat "\n"
  353.         "Unpacking StormCustom...\n\n"
  354.         #wrk_justamoment
  355.         ))
  356.  
  357.     (set #wrk_disasmdecrunch (cat "\n"
  358.         "Unpacking StormDisassmebler...\n\n"
  359.         #wrk_justamoment
  360.         ))
  361.  
  362.     (set #ask_rundecrunch (cat "\n"
  363.         "Do you want to install the debugger\n"
  364.         "\"StormRUN\"\n"
  365.         #wrk_globalhelp
  366.         ))
  367.  
  368.     (set #wrk_rundecrunch (cat "\n"
  369.         "Unpacking...\n"
  370.         "RunShell\n"
  371.         #wrk_justamoment
  372.         ))
  373.  
  374.     (set #ask_shelldecrunch (cat "\n"
  375.         "Do you want to install the project management\n"
  376.         "\"StormShell\"?\n"
  377.         #wrk_globalhelp
  378.         ))
  379.  
  380.     (set #wrk_shelldecrunch (cat "\n"
  381.         "Unpacking...\n"
  382.         "StormShell\n"
  383.         #wrk_justamoment
  384.         ))
  385.  
  386.     (set #ask_settdecrunch (cat "\n"
  387.         "Do you want to install the new presets?\n"
  388.         #wrk_globalhelp
  389.         ))
  390.  
  391.     (set #wrk_settdecrunch (cat "\n"
  392.         "Unpacking...\n"
  393.         "Presets\n"
  394.         ))
  395.  
  396.     (set #env_error (cat "\n\n\n\n"
  397.         "Error at installation of ENV arguments!\n"
  398.         ))
  399.  
  400.     (set #ask_screenman (cat "\n"
  401.         "Do you want to install the ScreenManager into\n"
  402.         "your WB-Startup folder?\n"
  403.         ))
  404.  
  405.     (set #wrk_screenmancopy (cat "\n"
  406.         "Copy the ScreenManager into your\n"
  407.         "WB-Startup!\n"
  408.         ))
  409.  
  410.     (set #ask_fixport (cat "\n"
  411.         "Do you want to install the MagicMenuPatch into\n"
  412.         "your WB-Startup?\n"
  413.         ))
  414.  
  415.     (set #wrk_fixport (cat "\n"
  416.         "Copy the  MagicMenuPatch into your\n"
  417.         "WB-Startup!\n"
  418.         ))
  419.  
  420.     (set #ask_incldecrunch (cat "\n"
  421.         "Do you want to update the OS 3.1 includes?\n\n"
  422.         #wrk_globalhelp
  423.         ))
  424.  
  425.     (set #wrk_incldecrunch (cat "\n"
  426.         "Unpacking the OS 3.1 includes...\n\n"
  427.         #wrk_justamoment
  428.         ))
  429.  
  430.     (set #ask_asmincldecrunch (cat "\n"
  431.         "Do you want to install the 3.1 Assembler-\n"
  432.         "Header files?\n\n"
  433.         #wrk_globalhelp
  434.         ))
  435.  
  436.     (set #wrk_asmincldecrunch (cat "\n"
  437.         "Unpacking the OS 3.1 Assembler Includes...\n\n"
  438.         #wrk_justamoment
  439.         ))
  440.  
  441.     (set #ask_demodecrunch (cat "\n"
  442.         "Do you want to update the examples?\n"
  443.         ))
  444.  
  445.     (set #wrk_demodecrunch (cat "\n"
  446.         "Unpacking the examples...\n\n"
  447.         #wrk_justamoment
  448.         ))
  449.  
  450.     (set #ask_rexxdecrunch (cat "\n"
  451.         "Do you want to update the ARexx-Skripts?\n"
  452.         ))
  453.  
  454.     (set #wrk_rexxdecrunch (cat "\n"
  455.         "Unpacking the ARexx-Skripts...\n\n"
  456.         #wrk_justamoment
  457.         ))
  458.  
  459.     (set #ask_objectCdecrunch (cat "\n"
  460.         "Do you want to install the ObjectC-\n"
  461.         "Precompiler?\n\n"
  462.         #wrk_globalhelp
  463.         ))
  464.  
  465.     (set #wrk_objectCdecrunch (cat "\n"
  466.         "Unpacking the ObjectC-Precompiler...\n\n"
  467.         #wrk_justamoment
  468.         ))
  469.  
  470.     (set #prp-insert-disk1 (cat "\n"
  471.         "\n\nPlease insert disk 1 \"StormC_Disk1\" into "
  472.         "any drive now !"
  473.         ))
  474.     (set #prp-insert-disk2 (cat "\n"
  475.         "\n\nPlease insert disk 2 \"StormC_Disk2\" into "
  476.         "any drive now !"
  477.         ))
  478.     (set #prp-insert-disk3 (cat "\n"
  479.         "\n\nPlease insert disk 3 \"StormC_Disk3\" into "
  480.         "any drive now !"
  481.         ))
  482.     (set #prp-insert-disk4 (cat "\n"
  483.         "\n\nPlease insert disk 4 \"StormC_Disk4\" into "
  484.         "any drive now !"
  485.         ))
  486.  
  487.     (set #prp-insert-disk5 (cat "\n"
  488.         "\n\nPlease insert disk 5 \"StormC_Disk5\" into "
  489.         "any drive now !"
  490.         ))
  491.  
  492.     (set #prp-insert-disk6 (cat "\n"
  493.         "\n\nPlease insert disk 6 \"StormC_Disk6\" into "
  494.         "any drive now !"
  495.         ))
  496.  
  497.     (set #prp-copy-menu-lib (cat "\n"
  498.         "Copying menu manager library"
  499.         ))
  500.  
  501.     (set #hlp-copy-menu-lib (cat        "\n"
  502.         "The menu manager library is used for the\n"
  503.         "menus of StormC.\n\n "
  504.         ))
  505.  
  506.     (set #wrk-create-pref-file (cat "\n"
  507.         "Creating preset files..."
  508.         ))
  509.  
  510.     (set #colorset-prompt "\nDo you want to work with editors syntax colouring?")
  511.     (set #lowcolor #nokey)
  512.     (set #hicolor #yeskey)
  513.     (set #colorset-help (cat "\n"
  514.        "You schould work with a minimum of 16 Colors\n"
  515.        "on your Screen if you use syntax colouring!\\nn"
  516.        ))
  517.  
  518.     (set #lokale_select (cat "\n"
  519.        "Please choose the locale catalogs you want to install!\n\n"
  520.        ))
  521.  
  522.     (set #lokale_select_help (cat "\n"
  523.        "Please choose one or more locale catalogs.\n\n"
  524.        ))
  525.  
  526.     (set #tooltype_select (cat "\n"
  527.        "Which Tooltypes do you want to install?\n\n"
  528.        ))
  529.  
  530.     (set #tooltype_select_help (cat "\n\n"
  531.        " PUBSCREEN=STORMC                                \n\n"
  532.        "If you use the StormC environment on an owe screen\n"
  533.        "you should have or install a plublic screen manager.\n\n"
  534.        " QUIET=TRUE                                      \n\n"
  535.        "There will be no feedback while starting the\n"
  536.        "StormC Environment.\n\n"
  537.        " HOTHELP=TRUE                                    \n\n"
  538.        "You can use the hypertext system Hothelp instead\n"
  539.        "of Amiga Guide.\n\n"
  540.        " GOLDED=TRUE                                     \n\n"
  541.        "Instead of StormED you can work with the GoldED\n"
  542.        "Version 3.1. For debugging the StormED will be loaded.\n"
  543.        "You should configure these if your Amiga have\n"
  544.        "enough memory.\n\n"
  545.        " SAVEMEM=TRUE                                     \n\n"
  546.        "Only the really used programs will be startet. \n"
  547.        "StormC, StormLink, and StormRun will be started\n"
  548.        "if you want to use them.\n"
  549.        ))
  550.  
  551.     (set #stormc_install_wizardlib (cat "\n"
  552.        "Do you want to install the new version\n"
  553.        "of the StormWizard-Library?\n"
  554.        ))
  555.  
  556.     (set #stormc_install_wizardlib_help (cat "\n"
  557.        "The Wizard-Library generates the nice\n"
  558.        "GUI interface.\n"
  559.        ))
  560.  
  561.     (set #nosyntaxcolouring_hint (cat "\n"
  562.        "You don`t want to use the editors syntax colouring!\n\n"
  563.        "If you want to switch it on later you have to\n"
  564.        "change the default icons in the ENVARC:\n"
  565.        "drawer and conigurate the colors in the editor\n"
  566.        "settings.\n"
  567.        ))
  568.  
  569.     (set #yessyntaxcolouring_hint (cat "\n"
  570.        "You want to work with the editor syntax colouring!\n\n"
  571.        "After programstart please open an empty editor\n"
  572.        "window and make the coloursettings for your system.\n"
  573.        ))
  574.  
  575.     (set #pubscreenuse_hint (cat "\n"
  576.        "You want to use a public screen!\n\n"
  577.        "Please use the stormScreenManager or an other\n"
  578.        "Tool to open a public screen bevor you start\n"
  579.        "the StormC environment!\n"
  580.        ))
  581.  
  582.     (set #goldeduse_hint (cat "\n"
  583.        "You use GoldEd instead of StormED!\n\n"
  584.        "You have to configurate GoldEd memory resident.\n\n"
  585.        "(Menu \"Config/Misc\"\n"
  586.        "Dialogentry:\"Misc/resident\")\n"
  587.        ))
  588.  
  589.     (set #wrk_changingtooltypes (cat "\n"
  590.        "The Tooltype settings will copied to the example\n"
  591.        "files and to the default ikons.\n"
  592.        ))
  593.  
  594. (if (= @language "deutsch") (
  595.  
  596.  
  597.     (set #yeskey "Ja")
  598.     (set #nokey "Nein")
  599.  
  600.     (set #wrongos "\n Sorry, dieses Paket benötigt mind. OS2.04.\n")
  601.  
  602.     (set #wrongcpu "\n Sorry, das StormC-Paket setzt eine 68020 CPU voraus!\n")
  603.  
  604.     (set #welcome (cat "\n"
  605.         "Willkommen bei der Installation des neuen\n"
  606.         "Compilerstandards StormC\n\n"
  607.         ""stcpp-version " vom "stcpp-date"\n\n"
  608.         "Für eine Komplett-Installation benötigen Sie\n"
  609.         ""size-komplett " KBytes freien HD-Speicher!\n\n"
  610.         "Dieses Skript kopiert die verschiedenen\n"
  611.         "Dateien, aus denen sich das Compilersystem\n"
  612.         "zusammensetzt, auf Ihre Festplatte.\n\n"
  613.         "©96/97 HAAGE&PARTNER Computer GmbH\n"
  614.         ))
  615.  
  616.     (set #oldversion (cat "\n"
  617.         "Auf Ihrer Festplatte befindet sich bereits\n"
  618.         "eine Installation von StormC!\n"
  619.         "" (getassign "STORMC") "\n"
  620.         ))
  621.  
  622.     (set #oldversion_help (cat "\n"
  623.         " Wählen Sie einfach die bereits vorhandene\n"
  624.         "Schublade an, wenn Sie ihr altes System\n"
  625.         "aktualisieren möchten!\n\n"
  626.         "Ihr alten Voreinstellungen wie das Default-\n"
  627.         "Projekt oder die Systemeinstellungen werden\n"
  628.         "dadurch ÜBERSCHRIEBEN!"
  629.         ))
  630.  
  631.     (set #modus-average (cat "\n"
  632.         "Im Einsteiger-Modus wird davon ausgegangen,\n"
  633.         "daß StormC auf einer Festplatte installiert\n"
  634.         "wird, auf der noch mindestens ca. 12 MByte\n"
  635.         "freier Speicherplatz verfügbar sind. Sie\n"
  636.         "werden dazu im nächsten Fenster nach dem\n"
  637.         "Namen der gewünschten Schublade gefragt.\n\n"
  638.         "Alles weitere wird dann vom Installations-\n"
  639.         "Skript möglichst genau an Ihr System angepaßt."
  640.         ))
  641.  
  642.     (set #new    "Neu installieren")
  643.     (set #update "Update über bisherige Version installieren")
  644. ;    (set #remove "Deinstallation - StormC entfernen")
  645.  
  646.     (set #chose_path (cat
  647.         "Auswahl des Pfades für die Compiler-\n"
  648.         "Installation.Bitte wählen Sie ein Laufwerk\n"
  649.         "oder eine Schublade! Eine Schublade \"StormC\"\n"
  650.         "wird automatisch erzeugt."
  651.         ))
  652.  
  653.     (set #chose_path_help (cat  "\n"
  654.         "Sie können über das Symbol 'Laufwerke anz.'\n"
  655.         "(bzw. 'Show drives') eine Übersicht über alle\n"
  656.         "Laufwerke Ihres Amiga anfordern; aus dieser\n"
  657.         "Übersicht sollten Sie nur die oberen, nicht\n"
  658.         "farblich gekennzeichneten Einträge auswählen.\n"
  659.         "Typische sinnvolle Namen sind z.B. \"WORK:\",\n"
  660.         "\"HD0:\" oder \"DH0:\" nicht verwenden sollten\n"
  661.         "Sie Namen wie \"DF0:\", \"DF1:\", \"DF2:\",\n"
  662.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
  663.         "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!\n\n\n"
  664.         "Storm C kann nur in eine Schublade nicht aber\n"
  665.         "auf eine Partition direkt installiert werden!\n"
  666.         "Wenn Sie also nur ein Laufwerk für die\n"
  667.         "Installation auswählen, wird Ihnen eine\n"
  668.         "Fehlermeldung angezeigt!\n\n"
  669.         @askdir-help))
  670.  
  671.     (set #auswahlhilfe (cat "\n"
  672.         "Auf Ihrer Festplatte befindet sich bereits\n"
  673.         "eine Version der Datei die installiert werden\n"
  674.         "soll.\n\n"
  675.         "Wählen Sie \"Ja\", wenn Sie die alte Datei mit\n"
  676.         "der neuen überschreiben möchten.\n"
  677.         "Anderenfalls wählen Sie bitte \"Nein\"!\n"
  678.         ))
  679.  
  680.     (set #wrk_globalhelp (cat "\n"
  681.         "Wenn Sie \"Nein\" wählen ist es möglich, daß\n"
  682.         "Ihr System nach der Installation nicht mehr\n"
  683.         "korrekt funktioniert!"
  684.         ))
  685.  
  686.     (set #ask_compiler (cat "\n"
  687.         "Möchten Sie den Compiler \"StormC\" installieren?\n"
  688.         "\n"
  689.         #wrk_globalhelp
  690.         ))
  691.  
  692.     (set #wrk_justamoment (cat "\n"
  693.         "Das dauert eine geraume Zeit.\n"
  694.         "Bitte haben Sie etwas Geduld!\n"
  695.         ))
  696.  
  697.     (set #wrk_compdecrunch (cat "\n"
  698.         "Entpacke das Compilersystem...\n\n"
  699.         "StormC - ANSI C/C++ Compiler V2.0\n\n"
  700.         #wrk_justamoment
  701.         ))
  702.  
  703.     (set #decrunch_error (cat "\n\n"
  704.         "Fehler beim Entpacken!\n\n"
  705.         "Stellen Sie bitte sicher, daß Ihre Festplatte\n"
  706.         "ausreichend Speicherkapazität hat, und, falls\n"
  707.         "die Dateien bereits vorhanden sind diese nicht\n"
  708.         "Lösch- oder Schreibgeschützt sind.\n"
  709.         ))
  710.  
  711.     (set #ask_editor (cat "\n"
  712.         "Möchten Sie den Editor \"StormED\" installieren?\n\n"
  713.         #wrk_globalhelp
  714.         ))
  715.  
  716.     (set #wrk_eddecrunch (cat "\n"
  717.         "Entpacke das Compilersystem...\n\n"
  718.         "Storm-Editor\n\n"
  719.         #wrk_justamoment
  720.         ))
  721.  
  722.     (set #ask_linker (cat "\n"
  723.         "Möchten Sie den neuen Linker \"StormLink\"\n"
  724.         "installieren?\n\n"
  725.         #wrk_globalhelp
  726.         ))
  727.  
  728.     (set #wrk_linkdecrunch (cat "\n"
  729.         "Entpacke das Compilersystem...\n\n"
  730.         "Storm-Linker\n\n"
  731.         #wrk_justamoment
  732.         ))
  733.  
  734. ;    (set #ask_decrunchlib (cat "\n"
  735. ;        "Möchten Sie die Bibliotheken installieren?\n\n"
  736. ;        #wrk_globalhelp
  737. ;        ))
  738.  
  739.     (set #wrk_libdecrunch (cat "\n"
  740.         "Entpacke die OS 3.1 Bibliotheken...\n\n\n"
  741.         #wrk_justamoment
  742.         ))
  743.  
  744.     (set #wrk_fastlibdecrunch (cat "\n"
  745.         "Entpacke die Spezialversion der\n"
  746.         "ANSI-Bibliotheken...\n\n"
  747.         "Mit der Bibliothek können besonders kurze und\n"
  748.         "und schnelle Programme erzeugt werden.\n\n"
  749.         #wrk_justamoment
  750.         ))
  751.  
  752.     (set #wrk_muilibdecrunch (cat "\n"
  753.         "Entpacke die Mui-Klassenbibliothek...\n\n"
  754.         "Mit der Bibliothek können Sie MUI-Programme\n\n"
  755.         "in C++ programmieren.\n\n"
  756.         #wrk_justamoment
  757.         ))
  758.  
  759.     (set #wrk_librariandecrunch (cat "\n"
  760.         "Entpacke das neue Programmteil StormLibrarian\n\n"
  761.         "Der Librarian ermöglicht Ihnen die Erzeugung\n"
  762.         "von Linker-Bibliotheken auf besonders einfache\n"
  763.         "Art uns Weise.\n\n"
  764.         #wrk_justamoment
  765.         ))
  766.  
  767.     (set #wrk_guidedecrunch (cat "\n"
  768.         "Entpacke die Amiga-Guide-Datei-Ikons...\n\n"
  769.         #wrk_justamoment
  770.         ))
  771.  
  772.     (set #wrk_localedecrunchger (cat "\n"
  773.         "Entpacke den deutschsprachigen Katalog...\n\n"
  774.         #wrk_justamoment
  775.         ))
  776.  
  777.     (set #wrk_localedecrunchital (cat "\n"
  778.         "Entpacke den italienischsprachigen Katalog...\n\n"
  779.         #wrk_justamoment
  780.         ))
  781.  
  782. ;    (set #wrk_localedecrunchfranz (cat "\n"
  783. ;        "Entpacke den französischsprachigen Katalog...\n\n"
  784. ;        #wrk_justamoment
  785. ;        ))
  786.  
  787. ;    (set #ask_appmanlibdecrunch (cat "\n"
  788. ;        "Möchten Sie die neue Menübibliothek Schnitt-\n"
  789. ;        "stelle installieren?\n\n"
  790. ;        #wrk_globalhelp
  791. ;        ))
  792.  
  793.     (set #wrk_appmanlibdecrunch (cat "\n"
  794.         "Entpacke das Compilersystem...\n\n"
  795.         "Application-Manager\n\n"
  796.         #wrk_justamoment
  797.         ))
  798.  
  799.     (set #ask_mathlibdecrunch (cat "\n"
  800.         "Möchten Sie die neuen Mathe-Bibliotheken\n"
  801.         "installieren?\n\n"
  802.         #wrk_globalhelp
  803.         ))
  804.  
  805.     (set #wrk_mathlibdecrunch (cat "\n"
  806.         "Entpacke das Compilersystem...\n\n"
  807.         "Mathe-Bibliotheken\n"
  808.         #wrk_justamoment
  809.         ))
  810.  
  811.     (set #ask_onlinedocudecrunch (cat "\n"
  812.         "Möchten Sie die neue Online-Dokumentation\n"
  813.         "installieren?\n"
  814.         ))
  815.  
  816.     (set #wrk_onlinedocudecrunch (cat "\n"
  817.         "Entpacke das Compilersystem...\n\n"
  818.         "Online-Dokumentation\n\n"
  819.         #wrk_justamoment
  820.         ))
  821.  
  822.     (set #ask_sourcedecrunch (cat "\n"
  823.         "Möchten Sie die neuen Quelltexte der Startup-\n"
  824.         "Codes und der Lokalisierung installieren?\n"
  825.         ))
  826.  
  827.     (set #wrk_sourcedecrunch (cat "\n"
  828.         "Entpacke das Compilersystem...\n\n"
  829.         "Startup-Code Sourcen\n\n"
  830.         #wrk_justamoment
  831.         ))
  832.  
  833.     (set #ask_startupdecrunch (cat "\n"
  834.         "Möchten Sie die neuen Startup-Codes\n"
  835.         "installieren?\n\n"
  836.         #wrk_globalhelp
  837.         ))
  838.  
  839.     (set #wrk_startupdecrunch (cat "\n"
  840.         "Entpacke das Compilersystem...\n\n"
  841.         "Startup-Code\n\n"
  842.         #wrk_justamoment
  843.         ))
  844.  
  845.     (set #ask_graficdecrunch (cat "\n"
  846.         "Möchten Sie die neuen Grafiken installieren?\n "
  847.         ))
  848.  
  849.     (set #wrk_gfxdecrunch (cat "\n"
  850.         "Entpacke das Compilersystem...\n\n"
  851.         "Grafiken\n\n"
  852.         #wrk_justamoment
  853.         ))
  854.  
  855.     (set #ask_lexdecrunch (cat "\n"
  856.         "Möchten Sie die neuen Lexika installieren?\n"
  857.         ))
  858.  
  859.     (set #wrk_lexdecrunch (cat "\n"
  860.         "Entpacke das Compilersystem...\n\n"
  861.         "Editor-Lexiken\n\n"
  862.         #wrk_justamoment
  863.         ))
  864.  
  865.     (set #ask_asmdecrunch (cat "\n"
  866.         "Möchten Sie die neue Assembler Schnittstelle\n"
  867.         "installieren?\n"
  868.         ))
  869.  
  870.     (set #wrk_asmdecrunch (cat "\n"
  871.         "Entpacke das Compilersystem...\n\n"
  872.         "Assembler-Schnittstelle\n\n"
  873.         #wrk_justamoment
  874.         ))
  875.  
  876.     (set #ask_phxassdecrunch (cat "\n"
  877.         "Möchten Sie den neue PhxAss intstallieren?\n"
  878.         ))
  879.  
  880.     (set #wrk_phxassdecrunch (cat "\n"
  881.         "Entpacke das Compilersystem...\n\n"
  882.         "PhxAssembler\n\n"
  883.         #wrk_justamoment
  884.         ))
  885.  
  886. ;    (set #ask_cppdecrunch (cat  "\n"
  887. ;        "Möchten Sie den neuen Lader \"StormCPP\"\n"
  888. ;        "installieren?\n\n"
  889. ;        #wrk_globalhelp
  890. ;        ))
  891.  
  892.     (set #wrk_cppdecrunch (cat "\n"
  893.         "Entpacke das Compilersystem...\n\n"
  894.         #wrk_justamoment
  895.         ))
  896.  
  897.     (set #wrk_customdecrunch (cat "\n"
  898.         "Entpacke StormCustom...\n\n"
  899.         #wrk_justamoment
  900.         ))
  901.  
  902.     (set #wrk_disasmdecrunch (cat "\n"
  903.         "Entpacke StormDisassembler...\n\n"
  904.         #wrk_justamoment
  905.         ))
  906.  
  907. ;    (set #ask_rundecrunch (cat "\n"
  908. ;        "Möchten Sie den Debugger \"StormRUN\"\n"
  909. ;        "installieren?\n\n"
  910. ;       #wrk_globalhelp
  911. ;        ))
  912.  
  913.     (set #wrk_rundecrunch (cat "\n"
  914.         "Entpacke das Compilersystem...\n"
  915.         "RunShell\n\n"
  916.         #wrk_justamoment
  917.         ))
  918.  
  919. ;    (set #ask_shelldecrunch (cat "\n"
  920. ;        "Möchten Sie die Projektverwaltung \"StormShell\"\n"
  921. ;        "installieren?\n\n"
  922. ;        #wrk_globalhelp
  923. ;        ))
  924.  
  925.     (set #wrk_shelldecrunch (cat "\n"
  926.         "Entpacke das Compilersystem...\n\n"
  927.         "StormShell\n\n"
  928.         #wrk_justamoment
  929.         ))
  930.  
  931.     (set #ask_settdecrunch (cat "\n"
  932.         "Möchten Sie die neuen Voreinstellungen\n"
  933.         "installieren?\n\n"
  934.         #wrk_globalhelp
  935.         ))
  936.  
  937.     (set #wrk_settdecrunch (cat "\n"
  938.         "Entpacke das Compilersystem...\n\n"
  939.         "Einstellungen\n"
  940.         ))
  941.  
  942.     (set #env_error (cat "\n\n\n\n"
  943.         "Fehler beim Installieren der ENV-Argumente.\n"
  944.         ))
  945.  
  946.     (set #ask_screenman (cat "\n"
  947.         "Möchten Sie den ScreenManager in Ihrer\n"
  948.         "WB-Startup installieren\n"
  949.         ))
  950.  
  951.     (set #wrk_screenmancopy (cat "\n"
  952.         "Kopiere den ScreenManager in Ihrer\n"
  953.         "WB-Startup!\n"
  954.         ))
  955.  
  956.     (set #ask_fixport (cat "\n"
  957.         "Möchten Sie den MagicMenuPatch in Ihrer\n"
  958.         "WB-Startup installieren\n"
  959.         ))
  960.  
  961.     (set #wrk_fixport (cat "\n"
  962.         "Kopiere MagicMenuPatch in Ihrer\n"
  963.         "WB-Startup!\n"
  964.         ))
  965.  
  966.  
  967.     (set #ask_incldecrunch (cat "\n"
  968.         "Möchten Sie die 3.1-Includes installieren?\n\n"
  969.         #wrk_globalhelp
  970.         ))
  971.  
  972.     (set #wrk_incldecrunch (cat "\n"
  973.         "Entpacke die OS 3.1 Includes...\n\n"
  974.         #wrk_justamoment
  975.         ))
  976.  
  977.     (set #ask_asmincldecrunch (cat "\n"
  978.         "Möchten Sie die 3.1 Assembler-Includes\n"
  979.         "installieren?\n\n"
  980.         #wrk_globalhelp
  981.         ))
  982.  
  983.     (set #wrk_asmincldecrunch (cat "\n"
  984.         "Entpacke die OS 3.1 Assembler Includes...\n\n"
  985.         #wrk_justamoment
  986.         ))
  987.  
  988.     (set #ask_demodecrunch (cat "\n"
  989.         "Möchten Sie die Beispiele überinstallieren?\n"
  990.         ))
  991.  
  992.     (set #wrk_demodecrunch (cat "\n"
  993.         "Entpacke die Beispiel-Dateien...\n\n"
  994.         #wrk_justamoment
  995.         ))
  996.  
  997.     (set #ask_rexxdecrunch (cat "\n"
  998.         "Möchten Sie die ARexx-Skripts überinstallieren?\n"
  999.         ))
  1000.  
  1001.     (set #wrk_rexxdecrunch (cat "\n"
  1002.         "Entpacke die ARexx-Skripts...\n\n"
  1003.         #wrk_justamoment
  1004.         ))
  1005.  
  1006.     (set #ask_objectCdecrunch (cat "\n"
  1007.         "Möchten Sie den ObjectC-\n"
  1008.         "Precompiler installieren?\n\n"
  1009.         #wrk_globalhelp
  1010.         ))
  1011.  
  1012.     (set #wrk_objectCdecrunch (cat "\n"
  1013.         "Entpacke den ObjectC-Precompiler...\n\n"
  1014.         #wrk_justamoment
  1015.         ))
  1016.  
  1017.     (set #prp-insert-disk1 (cat "\n"
  1018.         "\n\nBitte legen Sie nun die Diskette 1 \"StormC_Disk1\" "
  1019.         "in ein beliebiges Laufwerk ein!"
  1020.         ))
  1021.  
  1022.     (set #prp-insert-disk2 (cat "\n"
  1023.         "\n\nBitte legen Sie nun die Diskette 2 \"StormC_Disk2\" "
  1024.         "in ein beliebiges Laufwerk ein!"
  1025.         ))
  1026.  
  1027.     (set #prp-insert-disk3 (cat "\n"
  1028.         "\n\nBitte legen Sie nun die Diskette 3 \"StormC_Disk3\" "
  1029.         "in ein beliebiges Laufwerk ein!"
  1030.         ))
  1031.  
  1032.     (set #prp-insert-disk4 (cat "\n"
  1033.         "\n\nBitte legen Sie nun die Diskette 4 \"StormC_Disk4\" "
  1034.         "in ein beliebiges Laufwerk ein!"
  1035.         ))
  1036.  
  1037.     (set #prp-insert-disk5 (cat "\n"
  1038.         "\n\nBitte legen Sie nun die Diskette 5 \"StormC_Disk5\" "
  1039.         "in ein beliebiges Laufwerk ein!"
  1040.         ))
  1041.  
  1042.     (set #prp-insert-disk6 (cat "\n"
  1043.         "\n\nBitte legen Sie nun die Diskette 6 \"StormC_Disk6\" "
  1044.         "in ein beliebiges Laufwerk ein!"
  1045.         ))
  1046.  
  1047.     (set #prp-copy-menu-lib (cat "\n"
  1048.         "Kopiere die Application-Manager-Library\n"
  1049.         ))
  1050.  
  1051.     (set #hlp-copy-menu-lib (cat "\n"
  1052.         "Die Application-Manager-Library beinhaltet\n"
  1053.         "die Menüleisten des Systems.\n\n\n"
  1054.         ))
  1055.  
  1056.     (set #wrk-create-pref-file (cat "\n"
  1057.         "Die Voreinstellungs-Datei wird erzeugt..."
  1058.         ))
  1059.  
  1060.     (set #colorset-prompt "\nSoll die farbliche Syntax-Hervorhebung eingeschaltet werden?")
  1061.     (set #lowcolor #nokey)
  1062.     (set #hicolor #yeskey)
  1063.     (set #colorset-help (cat "\n"
  1064.        "Die farbliche Syntax-Markierung setzt voraus,\n"
  1065.        "daß Sie mit min. 16 Farben arbeiten.\n\n"
  1066.        "Bei weniger als 16 Farben, kann es passieren\n"
  1067.        "daß Textteile bedingt durch die verwendete\n"
  1068.        "Farbe nicht dargestellt werden.\n"
  1069.        ))
  1070.  
  1071.     (set #lokale_select (cat "\n"
  1072.        "Bitte wählen Sie, welche der folgenden Landes-\n"
  1073.        "sprachen-Kataloge installiert werden sollen: \n"
  1074.        ))
  1075.  
  1076.     (set #lokale_select_help (cat "\n"
  1077.        "Wählen Sie bitte einen oder mehrere der angegebenen\n"
  1078.        "Lokale-Kataloge aus. Daraufhin wird jeweils eine\n"
  1079.        "Schublade für die entsprechende Landessprache ange-\n"
  1080.        "legt und die Catalog kopiert\n"
  1081.        ))
  1082.  
  1083.     (set #tooltype_select (cat "\n"
  1084.        "Bitte wählen Sie, welche der angegeben Tool-\n"
  1085.        "types aktiviert werden sollen:\n"
  1086.        ))
  1087.  
  1088.     (set #tooltype_select_help (cat "\n\n"
  1089.        " PUBSCREEN=STORMC                                \n\n"
  1090.        "Wenn StormC auf einem eigenen Screen gestartet   \n"
  1091.        "werden soll. Beachten Sie bitte, daß Sie auch    \n"
  1092.        "den Pub-Screen-Manager installieren müssen.      \n\n"
  1093.        " QUIET=TRUE                                      \n\n"
  1094.        "Während des Systemstarts wird kein Fenster ge-   \n"
  1095.        "öffnet und es erfolgt keine Anzeige des Start-   \n"
  1096.        "Bildes.                                          \n\n"
  1097.        " HOTHELP=TRUE                                    \n\n"
  1098.        "Statt der mitgelieferten Online-Hilfe im Amige-  \n"
  1099.        "Guide-Format soll alternativ HotHelp verwendet   \n"
  1100.        "werden.                                          \n\n"
  1101.        " GOLDED=TRUE                                     \n\n"
  1102.        "Alternativ zum StormED kann auch der GoldED ab   \n"
  1103.        "Version 3.1.4 genutzt werden. Für den Debugger   \n"
  1104.        "wird nach wie vor der StormED geladen.           \n"
  1105.        "Diese Koniguration sollten Sie nur verwenden,    \n"
  1106.        "wenn Sie über ausreichend RAM-Speicher verfügen. \n\n"
  1107.        " SAVEMEM=TRUE                                     \n\n"
  1108.        "Es werden nur die zum Starten benötigten Programme\n"
  1109.        "gestartet. Um Speicher zu sparen lädt die Storm- \n"
  1110.        "Shell die Programmteile StormC, StormLink, und   \n"
  1111.        "StormRun erst bei Bedarf nach.                   \n"
  1112.        "Wenn Sie über ausreichend Speicher verfügen      \n"
  1113.        "sollten Sie diese Option nicht nutzen.           \n"
  1114.        ))
  1115.  
  1116.     (set #stormc_install_wizardlib (cat "\n"
  1117.        "Installiert die aktuelle Version der\n"
  1118.        "StormWizard-Library\n"
  1119.        ))
  1120.  
  1121.     (set #stormc_install_wizardlib_help (cat "\n"
  1122.        "Die Wizard-Library wird für die Oberflächen-\n"
  1123.        "darstellung benötigt.\n"
  1124.        ))
  1125.  
  1126.     (set #nosyntaxcolouring_hint (cat "\n"
  1127.        "Sie haben sich entschieden, ohne farbliche\n"
  1128.        "Syntax-Hervorhebung zu arbeiten!\n\n"
  1129.        "Um diese später eventuell einzuschalten,\n"
  1130.        "müssen Sie die Default-Piktogramme in ENVARC:\n"
  1131.        "neu installieren und die Farbzuordung im Text-\n"
  1132.        "editor auf Ihr System abstimmen!\n"
  1133.        ))
  1134.  
  1135.     (set #yessyntaxcolouring_hint (cat "\n"
  1136.        "Sie haben sich entschieden, mit farblicher\n"
  1137.        "Syntax-Hervorhebung zu arbeiten!\n\n"
  1138.        "Öffnen Sie bitte nach den Programmstart ein\n"
  1139.        "leeres Texteditorfenster und nehmen eine\n"
  1140.        "Abstimmung der Farbzuordung für Ihr System vor.\n"
  1141.        ))
  1142.  
  1143.     (set #pubscreenuse_hint (cat "\n"
  1144.        "Sie nutzen das Public-Screen Tooltype!\n\n"
  1145.        "Stellen Sie bitte sicher, daß Sie mit dem\n"
  1146.        "StormScreenManager oder einem anderen Tool\n"
  1147.        "einen Public-Screen mit dem Namen STORMC\n"
  1148.        "definiert haben, damit das Entwicklungssystem\n"
  1149.        "auf einem eigenen Screen gestartet werden kann.\n"
  1150.        ))
  1151.  
  1152.     (set #goldeduse_hint (cat "\n"
  1153.        "Sie nutzen GoldEd anstelle von StormED!\n\n"
  1154.        "Um GoldEd in der StormC-Umgebung nutzen zu\n"
  1155.        "können muß er resident gestartet werden.\n\n"
  1156.        "(Menü \"Konfig/Diverses\"\n"
  1157.        "Dialogeintrag:\"Diverses/resident\")\n"
  1158.        ))
  1159.  
  1160.     (set #wrk_changingtooltypes (cat "\n"
  1161.        "Die Tooltype-Einstellungen werden auf die\n"
  1162.        "Demo-Programme und auf die Vorgaben-Piktogamme\n"
  1163.        "übertragen!\n"
  1164.        ))
  1165. ))
  1166.  
  1167. ; ----------------------------- Prozeduren ------------------------------
  1168.  
  1169. (Procedure Make_Folder
  1170.     (
  1171.     (set folder (tackon folder "StormC"))
  1172.         (if (= (exists folder) 0)
  1173.             (
  1174.             (makedir folder (infos))
  1175.             )
  1176.             (
  1177.             (set update 1)        ; // Doch schon vorhanden!
  1178. ;            (set folder (getassign "STORMC"))
  1179.             )
  1180.         )
  1181.     )
  1182. )
  1183.  
  1184. (set @default-dest "")
  1185.  
  1186. (set os-version (/ (getversion) 65536))
  1187. (set os-13 (< os-version 36))
  1188. (set os-20 (>= os-version 36))
  1189. (set os-21 (>= os-version 38))
  1190.  
  1191. (set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
  1192.  
  1193. ; ---Die Pfadnamen der Programme, die vom Installations-Skript aufgerufen werden. ---
  1194.  
  1195. (set run-lha            "run RAM:Lhex x -a ")
  1196.  
  1197. ; ------------ Die Pfadnamen der einzelnen Quell-Dateien ----------------
  1198.  
  1199. (set source-more                    "StormC_Disk1:C/More")
  1200. (set source-lhx                     "StormC_Disk1:C/LHex")
  1201. (set source-cppikons                "StormC_Disk1:C/Ikons/")
  1202. (set source-Liesmich                "StormC_Disk1:Liesmich")
  1203. (set source-readme                  "StormC_Disk1:Readme")
  1204. (set source-readmeital              "StormC_Disk1:Leggimi")
  1205. (set source-changes                 "StormC_Disk1:Änderungen V2.0.guide")
  1206. (set source-changes-engl            "StormC_Disk1:Changes V2.0.guide")
  1207. (set source-colsettings             "StormC_Disk1:Settings/StormSettings.col")
  1208. (set source-swsettings              "StormC_Disk1:Settings/StormSettings.sw")
  1209. (set source-runsettings             "StormC_Disk1:Settings/StormSettings.Run")
  1210. (set source-template                "StormC_Disk1:Settings/template.¶")
  1211. (set source-screenman               "StormC_Disk1:Tools/StormScreenManager")
  1212. (set source-fixport                 "StormC_Disk1:Tools/MagicMenuPatch/MagicMenuPatch")
  1213. (set source-fixport-info            "StormC_Disk1:Tools/MagicMenuPatch/MagicMenuPatch.info")
  1214.  
  1215. (set archive-env                    "StormC_Disk1:Settings/Envarc.Lha")
  1216. (set archive-grafiken               "StormC_Disk1:Bilder.LHA")
  1217. (set archive-lexika                 "StormC_Disk1:Dictionary.LHA")
  1218. (set archive-demos                  "StormC_Disk1:Examples.lha")
  1219. (set archive-lokale-deutsch         "StormC_Disk1:German.LHA")
  1220. (set archive-lokale-italien         "StormC_Disk1:Italiano.LHA")
  1221. ;(set archive-lokale-frensh          "StormC_Disk1:Français.LHA")
  1222. (set archive-stormmath              "StormC_Disk1:MathLibs.LHA")
  1223. (set archive-source                 "StormC_Disk1:Source.LHA")
  1224. (set archive-startupcode            "StormC_Disk1:Startup-Code.LHA")
  1225. (set archive-run                    "StormC_Disk1:StormRUN.LHA")
  1226.  
  1227. (set archive-asminclude             "StormC_Disk2:ASM-Incl.LHA")
  1228. (set archive-compiler               "StormC_Disk2:StormC.LHA")
  1229. (set archive-stormlib               "StormC_Disk2:StormLibrary.LHA")
  1230. (set archive-linker                 "StormC_Disk2:StormLink.LHA")
  1231. (set archive-muilib                 "StormC_Disk2:MUIClass.LHA")
  1232. (set archive-disasm                 "StormC_Disk2:StormDisasm.LHA")
  1233.  
  1234. (set archive-include                "StormC_Disk3:C-Incl.lha")
  1235. (set archive-libs                   "StormC_Disk3:Lib.LHA")
  1236. (set archive-librarian              "StormC_Disk3:StormLibrarian.LHA")
  1237. (set archive-asm                    "StormC_Disk3:StormASM.LHA")
  1238. (set archive-cpp                    "StormC_Disk3:StormCPP.LHA")
  1239. (set archive-custom                 "StormC_Disk3:StormCustom.LHA")
  1240.  
  1241. (set archive-onlinedocu             "StormC_Disk4:OnlineHelp.LHA")
  1242. (set archive-rexx                   "StormC_Disk4:Rexx.Lha")
  1243.  
  1244. (set archive-fastlib                "StormC_Disk5:Fastlib.LHA")
  1245. (set archive-phxass                 "StormC_Disk5:Phxass.LHA")
  1246. (set archive-objectC                "StormC_Disk5:ObjectC.LHA")
  1247. (set archive-shell                  "StormC_Disk5:StormShell.LHA")
  1248. (set archive-editor                 "StormC_Disk5:StormED.LHA")
  1249. (set archive-wizardlib              "StormC_Disk5:wizardlib.LHA")
  1250.  
  1251. ;(set archive-gedarexx               "StormC_Disk5:GED_ARexx.LHA")
  1252. ;(set archive-gedpresets             "StormC_Disk5:GED_Presets.LHA")
  1253.  
  1254. ;=====================================================================================
  1255. ; // Beginn der Installation
  1256. ;=====================================================================================
  1257.  
  1258. ; // wird min. unter 2.04 installiert ?
  1259.  
  1260. (if (= os-13 1)
  1261.  
  1262.     (
  1263.         (message #wrongos)
  1264.  
  1265.         (exit (quiet))
  1266.     )
  1267. )
  1268.  
  1269. (if (patmatch "68000|68010" (database "cpu"))
  1270.     (
  1271.         (message #wrongcpu)
  1272.         (exit (quiet))
  1273.     )
  1274. )
  1275.  
  1276. (onerror (
  1277.     (if (> @ioerr 0)
  1278.         (message (cat "\n ERROR CODE: " @ioerr "\n\n"))
  1279.     )
  1280. ))
  1281.  
  1282. ; // Eine kleine Einleitung, gefolgt vom Startbild des Installers.
  1283.  
  1284. (set act-user-level (user 1))
  1285.  
  1286. (message #welcome)
  1287.  
  1288. (user act-user-level)
  1289. (welcome)
  1290.  
  1291. (complete 2)
  1292.  
  1293. ; // Alte Version prüfen und entsprechende Abfrage ausgeben!--------------------------------------------
  1294.  
  1295. (set update 0)
  1296.  
  1297. (if (exists "StormC:" (noreq))
  1298.     (
  1299.         (set update
  1300.             (askchoice
  1301.                 (prompt #oldversion)
  1302.                 (help   #oldversion_help)
  1303.                 (default 1)
  1304.                 (choices
  1305.                     #new
  1306.                     #update
  1307. ;                    #remove
  1308.                 )
  1309.             )
  1310.         )
  1311.     )
  1312. )
  1313.  
  1314. (set folder "WORK:StormC")
  1315.  
  1316. (if (<> update 0)                        ; // altes Assign benutzen wenn update oder remove
  1317.     (
  1318.         (set folder (getassign "STORMC"))
  1319.     )
  1320. )
  1321.  
  1322. ; ---------------- Die Ausgabe für die mit ausreichend Speicher ---------
  1323.  
  1324. (if (= @user-level 0)
  1325.     (
  1326.     (set act-user-level (user 1))
  1327.     (message #modus-average)
  1328.     )
  1329. )
  1330.  
  1331. (if (= update 0)
  1332.     (
  1333.     (set ok 0)
  1334.         (while (not ok)
  1335.             (set folder
  1336.                 (askdir
  1337.                 (prompt #chose_path)
  1338.                 (help #chose_path_help)    ; // Auswahl Hilfetext
  1339.                 (default folder)
  1340.                 (disk)
  1341.                 )
  1342.             )
  1343.  
  1344.             (Make_Folder)    ; // Automatisch neues Verzeichnis anlegen!
  1345.  
  1346.     (set #dir_error (cat  "\n"
  1347.         "Your selection \"" folder "\" is not a\n"
  1348.         "valid device or drawer!\n\n"
  1349.         "Select 'Show drives' to get an overview of all\n"
  1350.         "devices available on your Amiga.\n"
  1351.         "Please select one of the devices on top of\n"
  1352.         "the list.\n"
  1353.         "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0\"\n"
  1354.         "Do not use \"DF0:\", \"DF1:\", \"DF2:\",\n"
  1355.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
  1356.         "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"!\n\n"
  1357.         ))
  1358.  
  1359.     (set #memory_error (cat  "\n"
  1360.         "There is not enough free disk space at the\n"
  1361.         "device you have selected for the installation.\n\n"
  1362.         "Free diskspace    " freediskspace "!\n"
  1363.         "Diskspace needed  " size-komplett "!\n\n"
  1364.         "Please select a another device or harddisk!"
  1365.         ))
  1366.  
  1367.  
  1368. (if (= @language "deutsch") (
  1369.  
  1370.  
  1371.     (set #dir_error (cat  "\n"
  1372.         "Bei Ihrer Auswahl \"" folder "\" handelt es   \n"
  1373.         "sich nicht um eine gültige Schublade!         \n"
  1374.         "                                              \n"
  1375.         "Sie können über das Symbol 'Laufwerke anz.'   \n"
  1376.         "(bzw. 'Show drives') eine Übersicht über alle \n"
  1377.         "Laufwerke Ihres Amiga anfordern; aus dieser   \n"
  1378.         "Übersicht sollten Sie nur die oberen, nicht   \n"
  1379.         "farblich gekennzeichneten Einträge auswählen. \n"
  1380.         "Über den Schalter \"Neue Schublade anlegen..\"\n"
  1381.         "können Sie ein neue Schublade erzeugen. Diese \n"
  1382.         "neue Schublade wird auf der Partition        \n"
  1383.         "angelegt, die Sie soeben betrachten."
  1384.         ))
  1385.  
  1386.     (set #memory_error (cat  "\n"
  1387.         "Auf der ausgewählten Festplattenpartition     \n"
  1388.         "steht nicht genügend freier Speicher für die  \n"
  1389.         "komplette Installation des Compilersystems zur\n"
  1390.         "Verfügung.                                    \n"
  1391.         "                                              \n"
  1392.         "Freier Speicher " freediskspace "!            \n"
  1393.         "Benötigter Speicher " size-komplett "!        \n"
  1394.         "                                              \n"
  1395.         "Bitte wählen Sie eine andere Partition, auf   \n"
  1396.         "der entsprechende Kapazitäten vorhanden sind!"
  1397.         ))
  1398. ))
  1399.  
  1400.             ; // Ist der Dateiname leer oder endet mit einem ':' oder existiert unter
  1401.             ; // diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
  1402.             ; // kann die Auswahl-Schleife beendet werden.
  1403.             (if (or (or (or (<= (strlen folder) 0) (= (substr folder (- (strlen folder) 1) 1) ":")) (= (exists folder (noreq)) 0)) (= (getdiskspace folder) -1))
  1404.                 (message #dir_error)  ; Fehler bei der Auswahl der Schublade
  1405.                 ;else
  1406.                 (
  1407.                     (set freediskspace (getdiskspace folder))  ; // Der freie Speicher auf diesem Medium
  1408.                     (if (< freediskspace size-komplett)
  1409.                         (
  1410.                         (user 1)
  1411.                             (message #memory_error)  ; // nicht genügend freier Speicher
  1412.                         )
  1413.                      ;else
  1414.                         (set ok 1)
  1415.                     )
  1416.                 )
  1417.             )
  1418.         )
  1419.     )
  1420. )
  1421.  
  1422.  
  1423. (makeassign "STORMC")
  1424.  
  1425. (user act-user-level)
  1426.  
  1427. (if (= update 1)  ; // vor dem Update muß einiges umgebaut werden!
  1428.     (
  1429.  
  1430.     (set destbin (tackon folder "Bin"))
  1431.     (set newdestbin (tackon folder "StormSYS"))  ; // Name geändert seit Version 1.04
  1432.  
  1433.     (if (exists destbin)                         ; // Compiler-Verzeichnis umbenennen
  1434.         (
  1435.         (rename destbin newdestbin)
  1436.  
  1437.         (set oldfile (tackon newdestbin "startup.o"))
  1438.         (set oldfolder (tackon folder "OBSOLETE"))
  1439.         (if (= (exists oldfolder) 0)             ; // Verzeichnis für alte Dateien anlegen
  1440.             (makedir oldfolder)
  1441.         )
  1442.         (if (exists oldfile)
  1443.             (
  1444.                 (copyfiles
  1445.                     (
  1446.                     (source oldfile)                     ; // alte Startup.o retten
  1447.                     (dest oldfolder)
  1448.                     )
  1449.                 )
  1450.             )
  1451.         )
  1452.         (set destbin (tackon folder "Bin.info"))
  1453.         (set newdestbin (tackon folder "StormSYS.info"))
  1454.         (if (exists destbin)
  1455.             (rename destbin newdestbin)
  1456.         )
  1457.         (set destlib    (tackon folder "Lib"))
  1458.         (set oldfile (tackon destlib "storm.lib"))
  1459.         (if (exists oldfile)
  1460.             (
  1461.                 (copyfiles
  1462.                     (
  1463.                     (source oldfile)                     ; // alte Storm.lib retten
  1464.                     (dest oldfolder)
  1465.                     )
  1466.                 )
  1467.             )
  1468.         )
  1469.         )
  1470.     )
  1471.     (set destdemo (tackon folder "Beispiele"))   ; // Name geändert seit Version 1.04
  1472.     (set newdestdemo (tackon folder "Examples")) ; // Name geändert seit Version 1.04
  1473.     (if (exists destdemo)                        ; // Verzeichnis für Beispiele umbenennen
  1474.         (
  1475.         (rename destdemo newdestdemo)
  1476.         (set destdemo (tackon folder "Beispiele.info"))   ; // Name geändert seit Version 1.08
  1477.         (set newdestdemo (tackon folder "Examples.info")) ; // Name geändert seit Version 1.08
  1478.         (rename destdemo newdestdemo)
  1479.         )
  1480.     )
  1481.     (set destsys (tackon folder "StormSYS"))
  1482.     (if (exists destsys)
  1483.         (
  1484.         (set oldfile (tackon destsys "ABOUT3.0.IFF"))
  1485.         (if (exists oldfile)
  1486.             (
  1487.             (delete oldfile)                         ; // wird nicht mehr gebraucht
  1488.             ))
  1489.         (set oldfile (tackon destsys "storm.library"))
  1490.         (if (exists oldfile)
  1491.             (
  1492.             (delete oldfile)                         ; // wird nicht mehr gebraucht
  1493.             ))
  1494.  
  1495.         (set oldfile (tackon destsys "STORMSETTINGS.RUN"))
  1496.         (if (exists oldfile)
  1497.             (
  1498.             (delete oldfile)                         ; // wird nicht mehr gebraucht
  1499.             ))
  1500.  
  1501.         (set olddict (tackon destsys "Lexikon"))
  1502.         (set newdict (tackon destsys "Dictionary"))
  1503.         (if (exists olddict)
  1504.             (
  1505.             (rename olddict newdict)            ; // Name geändert seit Version 1.04
  1506.  
  1507.             (set oldfile (tackon newdict "Amiga Funktionen.lexikon"))
  1508.             (if (exists oldfile)
  1509.                 (
  1510.                 (delete oldfile)                         ; // wird nicht mehr gebraucht
  1511.                 ))
  1512.             (set oldfile (tackon newdict "Amiga Typen.lexikon"))
  1513.             (if (exists oldfile)
  1514.                 (
  1515.                 (delete oldfile)                         ; // wird nicht mehr gebraucht
  1516.                 ))
  1517.             (set oldfile (tackon newdict "Benutzer1.lexikon"))
  1518.             (set newfile (tackon newdict "User 1.dic"))
  1519.             (if (exists oldfile)
  1520.                 (
  1521.                 (rename oldfile newfile)                 ; // wird umbenannt
  1522.                 ))
  1523.             (set oldfile (tackon newdict "Benutzer2.lexikon"))
  1524.             (set newfile (tackon newdict "User 2.dic"))
  1525.             (if (exists oldfile)
  1526.                 (
  1527.                 (rename oldfile newfile)                 ; // wird umbenannt
  1528.                 ))
  1529.             (set oldfile (tackon newdict "Benutzer3.lexikon"))
  1530.             (set newfile (tackon newdict "User 3.dic"))
  1531.             (if (exists oldfile)
  1532.                 (
  1533.                 (rename oldfile newfile)                 ; // wird umbenannt
  1534.                 ))
  1535.             (set oldfile (tackon newdict "C Bibliothek.lexikon"))
  1536.             (if (exists oldfile)
  1537.                 (
  1538.                 (delete oldfile)                         ; // wird nicht mehr gebraucht
  1539.                 ))
  1540.             (set oldfile (tackon newdict "C Wörter.lexikon"))
  1541.             (if (exists oldfile)
  1542.                 (
  1543.                 (delete oldfile)                         ; // wird nicht mehr gebraucht
  1544.                 ))
  1545.             (set oldfile (tackon newdict "Preprozessor.lexikon"))
  1546.             (if (exists oldfile)
  1547.                 (
  1548.                 (delete oldfile)                         ; // wird nicht mehr gebraucht
  1549.                 ))
  1550.             ))
  1551.         ))
  1552.     )
  1553. )
  1554.  
  1555. ; // Verzeichnisse vorbereiten
  1556.  
  1557.     (set destbin        (tackon folder "StormSYS"))   ; // Neu seit Version 1.08
  1558.     (if                                         ; // Compiler-Verzeichnis erzeugen
  1559.         (= (exists destbin) 0)
  1560.         (makedir destbin (infos))
  1561.     )
  1562.  
  1563.     (set destdemo       (tackon folder "Examples"))   ; // Name geändert seit Version 1.08
  1564.     (if                                         ; // Demo-Verzeichnis erzeugen
  1565.         (= (exists destdemo) 0)
  1566.         (makedir destdemo (infos))
  1567.     )
  1568.  
  1569.     (set destasminclude (tackon folder "ASM-Include"))
  1570.     (if                                         ; // ASM-Include-Verzeichnis erzeugen
  1571.         (= (exists destasminclude) 0)
  1572.         (makedir destasminclude)
  1573.     )
  1574.  
  1575.     (set destinclude (tackon folder "Include"))
  1576.     (if                                         ; // Include-Verzeichnis erzeugen
  1577.         (= (exists destinclude) 0)
  1578.         (makedir destinclude)
  1579.     )
  1580.  
  1581.     (set destlib        (tackon folder "Lib"))
  1582.     (if                                         ; // Libraries-Verzeichnis erzeugen
  1583.         (= (exists destlib) 0)
  1584.         (makedir destlib)
  1585.     )
  1586.  
  1587.     (set destfastlib    (tackon folder "FAST-ANSI-Lib"))
  1588.     (if                                         ; // Spezial-Libraries-Verzeichnis erzeugen
  1589.         (= (exists destfastlib) 0)
  1590.         (makedir destfastlib (infos))
  1591.     )
  1592.  
  1593.     (set destmuilib    (tackon folder "MUI-Class-Lib"))
  1594.     (if                                         ; // Spezial-Libraries-Verzeichnis erzeugen
  1595.         (= (exists destmuilib) 0)
  1596.         (makedir destmuilib (infos))
  1597.     )
  1598.  
  1599.     (set destphxass     (tackon folder "PhxAss"))
  1600.     (if                                         ; // Dokumenten-Verzeichnis erzeugen
  1601.         (= (exists destphxass) 0)
  1602.         (makedir destphxass (infos))
  1603.     )
  1604.  
  1605.     (set destsource     (tackon folder "Source"))
  1606.     (if                                         ; // Quelltexte-Verzeichnis erzeugen
  1607.         (= (exists destsource) 0)
  1608.         (makedir destsource (infos))
  1609.     )
  1610.  
  1611.     (set destmath (tackon destbin "lib"))
  1612.     (if                                         ; // Verzeichnis für Mathebibliotheken erzeugen
  1613.         (= (exists destmath) 0)
  1614.         (makedir destmath)
  1615.     )
  1616.  
  1617.     (set desthelp (tackon destbin "Help"))
  1618.     (if                                         ; // Verzeichnis für Online-Hilfe erzeugen
  1619.         (= (exists desthelp) 0)
  1620.         (makedir desthelp (infos))
  1621.     )
  1622.  
  1623.     (set destdict (tackon destbin "Dictionary"))
  1624.     (if                                         ; // Verzeichnis für Lexika erzeugen
  1625.         (= (exists destdict) 0)
  1626.         (makedir destdict)
  1627.     )
  1628.  
  1629.     (set destlokale (tackon destbin "CATALOGS"))
  1630.     (if                                         ; // Verzeichnis für Cataloge erzeugen
  1631.         (= (exists destlokale) 0)
  1632.         (makedir destlokale)
  1633.     )
  1634.  
  1635.     (set destrexx (tackon folder "Rexx"))
  1636.     (if                                         ; // Verzeichnis für Cataloge erzeugen
  1637.         (= (exists destrexx) 0)
  1638.         (makedir destrexx)
  1639.     )
  1640.  
  1641. ;    (set destobjectC       (tackon folder "ObjectC"))
  1642. ;    (if                                         ; // ObjectC-Verzeichnis erzeugen
  1643. ;        (= (exists destobjectC) 0)
  1644. ;        (makedir destobjectC (infos))
  1645. ;    )
  1646.  
  1647.  
  1648. ; // Lokalisierungsauswahl
  1649.  
  1650. (set install_lokale
  1651.  
  1652.     (askoptions
  1653.  
  1654.         (prompt #lokale_select)
  1655.         (help   #lokale_select_help)
  1656.  
  1657.         (default install_lokale_default)
  1658.  
  1659.         (choices
  1660.             #lokale_select_english
  1661.             #lokale_select_german
  1662. ;            #lokale_select_italien
  1663. ;            #lokale_select_frensh
  1664.         )
  1665.     )
  1666. )
  1667.  
  1668.  
  1669. (if (= 2 (BITAND install_lokale install_lokale_german))
  1670.     (
  1671.  
  1672.     (set lokale (tackon destlokale "Deutsch"))
  1673.     (if                                         ; // Verzeichnis für Deutschen Cataloge erzeugen
  1674.         (= (exists lokale) 0)
  1675.         (makedir lokale)
  1676.     ))
  1677. )
  1678.  
  1679. (if (= 4 (BITAND install_lokale install_lokale_italien))
  1680.     (
  1681.  
  1682.     (set lokale (tackon destlokale "Italiano"))
  1683.     (if                                         ; // Verzeichnis für Italienischen Cataloge erzeugen
  1684.         (= (exists lokale) 0)
  1685.         (makedir lokale)
  1686.     ))
  1687. )
  1688.  
  1689. ;(if (= 8 (BITAND install_lokale install_lokale_frensh))
  1690. ;    (
  1691.  
  1692. ;    (set lokale (tackon destlokale "Français"))
  1693. ;    (if                                         ; // Verzeichnis für Deutschen Cataloge erzeugen
  1694. ;        (= (exists lokale) 0)
  1695. ;        (makedir lokale)
  1696. ;    ))
  1697. ;)
  1698.  
  1699. ; // Diskette 1 einlegen!
  1700.  
  1701. (askdisk
  1702.     (prompt #prp-insert-disk1)
  1703.     (help #askdir-help)
  1704.     (dest "StormC_Disk1")
  1705. )
  1706.  
  1707. (complete 4)
  1708.  
  1709. ; // Lhx wird in die RAM-Disk kopiert, damit das Programm nicht jedesmal von Disk
  1710. ; // geladen werden muß.
  1711.  
  1712. (copyfiles
  1713.     (source source-lhx)
  1714.     (dest "RAM:")
  1715. )
  1716.  
  1717.  
  1718. ; // Liesmich Datei auf Festplatte kopieren!
  1719.  
  1720. (copyfiles
  1721.     (dest folder)
  1722.     (source source-readme)
  1723.     (infos)
  1724. )
  1725.  
  1726. (if (= 2 (BITAND install_lokale install_lokale_german))
  1727.     (
  1728.       (copyfiles
  1729.            (dest folder)
  1730.            (source source-Liesmich)
  1731.            (infos)
  1732.        )
  1733.     )
  1734. )
  1735.  
  1736. (if (= 4 (BITAND install_lokale install_lokale_italien))
  1737.     (
  1738.        (copyfiles
  1739.            (dest folder)
  1740.            (source source-readmeital)
  1741.            (infos)
  1742.        )
  1743.     )
  1744. )
  1745.  
  1746. (copyfiles
  1747.     (dest folder)
  1748.     (source source-changes)
  1749. )
  1750.  
  1751. (copyfiles
  1752.     (dest folder)
  1753.     (source source-changes-engl)
  1754. )
  1755.  
  1756. (makeassign "STORMC")
  1757. (makeassign "STORMC" folder)
  1758.  
  1759. (if (= 2 (BITAND install_lokale install_lokale_german))
  1760.     (
  1761.     (run "run StormC_Disk1:C/More StormC:Liesmich")
  1762.     )
  1763. )
  1764. (if (= 4 (BITAND install_lokale install_lokale_italien))
  1765.     (
  1766.     (run "run StormC_Disk1:C/More StormC:Leggimi")
  1767.     )
  1768.     (
  1769.     (run "run StormC_Disk1:C/More StormC:Readme")
  1770.     )
  1771. )
  1772.  
  1773. (complete 8)
  1774.  
  1775. ; // Die 2. Icon Geschichte!
  1776.  
  1777. (set install_tooltypes
  1778.  
  1779.     (askoptions
  1780.  
  1781.         (prompt #tooltype_select)
  1782.         (help   #tooltype_select_help)
  1783.  
  1784.         (default 0)
  1785.  
  1786.         (choices
  1787.             #tooltype_select_pubscreen
  1788.             #tooltype_select_quite
  1789.             #tooltype_select_hothelp
  1790.             #tooltype_select_golded
  1791.             #tooltype_select_savemem
  1792.         )
  1793.     )
  1794. )
  1795.  
  1796. (set #pubscvar   "DEFAULT")
  1797. (set #quietvar   "FALSE")
  1798. (set #hothelpvar "FALSE")
  1799. (set #goldedvar  "TRUE")
  1800. (set #savememvar "FALSE")
  1801.  
  1802. (if (= 1 (bitand install_tooltypes 1))
  1803.     (
  1804.     (set #pubscvar "STORMC")
  1805.     ))
  1806.  
  1807. (if (= 2 (bitand install_tooltypes 2))
  1808.     (
  1809.     (set #quietvar "TRUE")
  1810.     ))
  1811.  
  1812. (if (= 4 (bitand install_tooltypes 4))
  1813.     (
  1814.     (set #hothelpvar "TRUE")
  1815.     ))
  1816.  
  1817. (if (= 8 (bitand install_tooltypes 8))
  1818.     (
  1819.     (set #goldedvar "TRUE")
  1820.     ))
  1821.  
  1822. (if (= 16 (bitand install_tooltypes 16))
  1823.     (
  1824.     (set #savememvar "TRUE")
  1825.     ))
  1826.  
  1827. (copyfiles                                  ; Ikon kopieren!
  1828.     (source source-cppikons)
  1829.     (dest folder)
  1830.          (all)
  1831. )
  1832.  
  1833. (if (= 2 (BITAND install_lokale install_lokale_german))
  1834.     (
  1835.     (set #cppicon (tackon folder "Readme.info"))
  1836.     )
  1837.     (
  1838.     (set #cppicon (tackon folder "Liesmich.info"))
  1839.     )
  1840. )
  1841.  
  1842. (delete #cppicon)
  1843.  
  1844.  
  1845. (set cppicon (tackon folder "StormCPP"))
  1846.  
  1847. (tooltype
  1848.     (setdefaulttool "StormC:StormSYS/StormCPP")
  1849.     (setstack 15000)
  1850.     (settooltype "PUBSCREEN" #pubscvar)
  1851.     (dest cppicon)
  1852.     (settooltype "QUIET" #quietvar)
  1853.     (settooltype "HOTHELP" #hothelpvar)
  1854.     (settooltype "GOLDED" #goldedvar)
  1855.     (settooltype "SAVEMEM" #savememvar)
  1856. )
  1857.  
  1858.  
  1859. (set cppicon (tackon folder "StormLibrarian"))
  1860.  
  1861. (tooltype
  1862.     (setdefaulttool "StormC:StormSYS/StormLibrarian")
  1863.     (setstack 8000)
  1864.     (settooltype "PUBSCREEN" #pubscvar)
  1865.     (dest cppicon)
  1866. )
  1867.  
  1868.  
  1869. ;------------------------------ Screen Manager ----------------------------------
  1870.  
  1871. (set screenman
  1872.     (askbool
  1873.        (prompt #ask_screenman)
  1874.        (help #auswahlhilfe)
  1875.        (default 1)
  1876.        (choices #yeskey #nokey)
  1877.     )
  1878. )
  1879.  
  1880. (if (= screenman 1)
  1881.     (
  1882.     (working #wrk_screenmancopy)
  1883.       (copyfiles
  1884.         (source source-screenman)
  1885.         (all)
  1886.         (dest "SYS:WBStartup")
  1887.       )
  1888.  
  1889.     )
  1890. )
  1891.  
  1892. ;============= FixGIRPort ===============================================
  1893.  
  1894. (set fixport
  1895.     (askbool
  1896.        (prompt #ask_fixport)
  1897.        (help #auswahlhilfe)
  1898.        (default 1)
  1899.        (choices #yeskey #nokey)
  1900.     )
  1901. )
  1902.  
  1903. (if (= fixport 1)
  1904.     (
  1905.     (working #wrk_fixport)
  1906.       (copyfiles
  1907.         (source source-fixport)
  1908.         (dest "SYS:WBStartup")
  1909.       )
  1910.       (copyfiles
  1911.         (source source-fixport-info)
  1912.         (dest "SYS:WBStartup")
  1913.       )
  1914.  
  1915.     )
  1916. )
  1917.  
  1918. ;============= Voreinstellungen ===============================================
  1919.  
  1920. (set colorset
  1921.  
  1922.   (askchoice  (prompt #colorset-prompt)
  1923. ;              (help @install-help)
  1924.               (choices #lowcolor #hicolor)
  1925.               (default 1)
  1926.               (help #colorset-help)
  1927.   )
  1928. )
  1929.  
  1930. (if (= colorset 1)
  1931.   (
  1932.     (set #ed-settings "StormC_Disk1:Settings/StormSettings.col")
  1933.   )
  1934.   (
  1935.     (set #ed-settings "StormC_Disk1:Settings/StormSettings.sw")
  1936.   )
  1937. )
  1938.  
  1939. ;debug(#ed-settings
  1940.  
  1941. (complete 10)
  1942.  
  1943. (set bool 1)
  1944.  
  1945. (set destbinexists (tackon destbin "STORMSETTINGS.ED"))
  1946.  
  1947. (if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; Settings vorhanden?
  1948.     (
  1949.         (set bool
  1950.             (askbool
  1951.                 (prompt #ask_settdecrunch)
  1952.                 (help #auswahlhilfe)
  1953.                 (default 1)
  1954.                 (choices #yeskey #nokey)
  1955.             )
  1956.         )
  1957.     )
  1958. )
  1959.  
  1960.  
  1961. (if (= bool 1)
  1962.     (
  1963.       (working #wrk_settdecrunch)
  1964.       (copyfiles
  1965.         (source #ed-settings)
  1966.         (newname "StormSettings.ED")
  1967.         (dest destbin)
  1968.       )
  1969.  
  1970. ;      (copyfiles
  1971. ;        (source source-runsettings)
  1972. ;        (dest destbin)
  1973. ;      )
  1974.  
  1975.       (copyfiles
  1976.         (source source-template)
  1977.         (dest destbin)
  1978.       )
  1979.  
  1980.     )
  1981. )
  1982.  
  1983. (complete 12)
  1984.  
  1985. (set destenvarc (tackon "envarc:" "STORMCPP"))
  1986. (if                                         ; // Verzeichnis für Envargumente erzeugen
  1987.    (= (exists destenvarc) 0)
  1988.     (
  1989.       (makedir destenvarc (infos))
  1990.       (if ( <> update 0)
  1991.         (makeassign "lhex_temp")
  1992.         (makeassign "lhex_temp" destenvarc)
  1993.         (set ENVERROR (run "ram:lhex -qfw=lhex_temp: x " archive-env))
  1994.         (if  ( <> ENVERROR 0)
  1995.             (message #env_error)
  1996.         )
  1997.       )
  1998.     )
  1999. )
  2000. (set destenvarc (tackon "env:" "STORMCPP"))
  2001. (if                                         ; // Verzeichnis für Envargumente erzeugen
  2002.   (= (exists destenvarc) 0)
  2003.     (
  2004.       (makedir destenvarc (infos))
  2005.       (if ( <> update 0)
  2006.         (makeassign "lhex_temp")
  2007.         (makeassign "lhex_temp" destenvarc)
  2008.         (set ENVERROR (run "ram:lhex -qfw=lhex_temp: x " archive-env))
  2009.         (if  ( <> ENVERROR 0)
  2010.             (message #env_error)
  2011.         )
  2012.       )
  2013.     )
  2014. )
  2015.  
  2016. ;==================================================================================
  2017.  
  2018.  
  2019. ;=================== Grafiken =====================================================
  2020.  
  2021. (complete 16)
  2022.  
  2023. ; Compiler-System entpacken
  2024.  
  2025. (makeassign "lhex_temp" destbin)
  2026.  
  2027. (
  2028.     (working #wrk_gfxdecrunch)
  2029.     (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-grafiken))
  2030.     (if  ( <> COMPERROR 0)
  2031.         (message #decrunch_error)
  2032.     )
  2033. )
  2034.  
  2035. ;==================================================================================
  2036.  
  2037. ;================= Lexika =========================================================
  2038.  
  2039. (complete 20)
  2040.  
  2041. (makeassign "lhex_temp" destdict)
  2042.  
  2043. (set bool 1)
  2044.  
  2045. (set destbinexists      (tackon destdict "Preprocessor.dic"))
  2046.  
  2047. (if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; // Lexikon vorhanden?
  2048.     (
  2049.         (set bool
  2050.             (askbool
  2051.                (prompt #ask_lexdecrunch)
  2052.                (help #auswahlhilfe)
  2053.                (default 1)
  2054.                (choices #yeskey #nokey)
  2055.             )
  2056.         )
  2057.     )
  2058. )
  2059.  
  2060. (if (= bool 1)
  2061.     (
  2062.         (working #wrk_lexdecrunch)
  2063.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-lexika))
  2064.         (if  ( <> COMPERROR 0)
  2065.             (message #decrunch_error)
  2066.         )
  2067.     )
  2068. )
  2069. ;==================================================================================
  2070.  
  2071. ;============= Demos ==============================================================
  2072.  
  2073. (complete 23)
  2074.  
  2075. ; ansidemo entpacken
  2076.  
  2077. (makeassign "lhex_temp" destdemo)
  2078.  
  2079. (set bool 1)
  2080.  
  2081. (set destdemoexists     (tackon destdemo "COLORWHEEL"))
  2082.  
  2083. (if (AND (> @user-level 0) (> (exists destdemoexists) 0))                       ; Beispiele vorhanden?
  2084.     (
  2085.         (set bool
  2086.             (askbool
  2087.                 (prompt #ask_demodecrunch)
  2088.                 (help #auswahlhilfe)
  2089.                 (default 1)
  2090.                 (choices #yeskey #nokey)
  2091.             )
  2092.         )
  2093.     )
  2094. )
  2095.  
  2096. ;(debug "Rückgabe von AskBool" bool)
  2097.  
  2098. (if (= bool 1)
  2099.     (
  2100.         (working #wrk_demodecrunch)
  2101.         (set DEMOERROR (run "ram:lhex -qfw=lhex_temp: x " archive-demos))
  2102.         (if  ( <> DEMOERROR 0)
  2103.             (message #decrunch_error)
  2104.         )
  2105.     )
  2106. )
  2107.  
  2108. ;==================================================================================
  2109.  
  2110. ;================= Lokale ======================================================
  2111.  
  2112. (complete 26)
  2113.  
  2114. ; // Cataloge entpacken
  2115.  
  2116.  
  2117. (if (= 2 (bitand install_lokale install_lokale_german))
  2118.     (
  2119.         (set lokale (tackon destlokale "Deutsch"))
  2120.         (makeassign "lhex_temp" lokale)
  2121.         (working #wrk_localedecrunchger)
  2122.         (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-lokale-deutsch))
  2123.         (if  ( <> INCLERROR 0)
  2124.             (message #decrunch_error)
  2125.         )
  2126.     ))
  2127.  
  2128. (if (= 4 (bitand install_lokale install_lokale_italien))
  2129.     (
  2130.         (set lokale (tackon destlokale "Italiano"))
  2131.         (makeassign "lhex_temp" lokale)
  2132.         (working #wrk_localedecrunchital)
  2133.         (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-lokale-italien))
  2134.         (if  ( <> INCLERROR 0)
  2135.             (message #decrunch_error)
  2136.         )
  2137.     ))
  2138.  
  2139. ;(if (= 8 (bitand install_lokale install_lokale_frensh))
  2140. ;    (
  2141. ;        (set lokale (tackon destlokale "Français"))
  2142. ;        (makeassign "lhex_temp" lokale)
  2143. ;        (working #wrk_localedecrunchfranz)
  2144. ;        (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-lokale-frensh))
  2145. ;        (if  ( <> INCLERROR 0)
  2146. ;            (message #decrunch_error)
  2147. ;        )
  2148. ;    ))
  2149.  
  2150. ;==================================================================================
  2151.  
  2152. ;================= MathLibs =======================================================
  2153.  
  2154. (complete 30)
  2155.  
  2156. (makeassign "lhex_temp" destmath)
  2157.  
  2158. (set bool 1)
  2159.  
  2160. (set destbinexists (tackon destmath "math000.lib"))
  2161.  
  2162. (if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Mathe.Libs vorhanden?
  2163.     (
  2164.         (set bool
  2165.             (askbool
  2166.                 (prompt #ask_mathlibdecrunch)
  2167.                     (help #auswahlhilfe)
  2168.                     (default 1)
  2169.                     (choices #yeskey #nokey)
  2170.             )
  2171.         )
  2172.     )
  2173. )
  2174.  
  2175. (if (= bool 1)
  2176.     (
  2177.         (working #wrk_mathlibdecrunch)
  2178.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-stormmath))
  2179.         (if  ( <> COMPERROR 0)
  2180.             (message #decrunch_error)
  2181.         )
  2182.     )
  2183. )
  2184. ;==================================================================================
  2185.  
  2186. ;================= Quelltexte =====================================================
  2187.  
  2188. (complete 32)
  2189.  
  2190. (makeassign "lhex_temp" destsource)
  2191.  
  2192. (set bool 1)
  2193.  
  2194. (set destbinexists (tackon destsource "Locale"))
  2195.  
  2196. (if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Quellen vorhanden?
  2197.     (
  2198.         (set bool
  2199.             (askbool
  2200.                 (prompt #ask_sourcedecrunch)
  2201.                     (help #auswahlhilfe)
  2202.                     (default 1)
  2203.                     (choices #yeskey #nokey)
  2204.             )
  2205.         )
  2206.     )
  2207. )
  2208.  
  2209. (if (= bool 1)
  2210.     (
  2211.         (working #wrk_sourcedecrunch)
  2212.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-source))
  2213.         (if  ( <> COMPERROR 0)
  2214.             (message #decrunch_error)
  2215.         )
  2216.     )
  2217. )
  2218. ;==================================================================================
  2219.  
  2220. ;================= Startup-Codes ==================================================
  2221.  
  2222. (complete 35)
  2223.  
  2224. (makeassign "lhex_temp" destbin)
  2225.  
  2226. (set bool 1)
  2227.  
  2228. (set destbinexists (tackon destbin "startup.o"))
  2229.  
  2230. (if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Quellen vorhanden?
  2231.     (
  2232.         (set bool
  2233.             (askbool
  2234.                 (prompt #ask_startupdecrunch)
  2235.                     (help #auswahlhilfe)
  2236.                     (default 1)
  2237.                     (choices #yeskey #nokey)
  2238.             )
  2239.         )
  2240.     )
  2241. )
  2242.  
  2243. (if (= bool 1)
  2244.     (
  2245.         (working #wrk_startupdecrunch)
  2246.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-startupcode))
  2247.         (if  ( <> COMPERROR 0)
  2248.             (message #decrunch_error)
  2249.         )
  2250.     )
  2251. )
  2252. ;==================================================================================
  2253.  
  2254. ;============= StormRUN ===========================================================
  2255.  
  2256. (complete 36)
  2257.  
  2258. (makeassign "lhex_temp" destbin)
  2259.  
  2260. (set bool 1)
  2261.  
  2262. (set destbinexists      (tackon destbin "STORMRUN"))
  2263.  
  2264. (if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; StormRun vorhanden?
  2265.     (
  2266.     (if (<> 65537 (getversion destbinexists)) ; ungleich V2.0
  2267.         (
  2268.         (set bool 1)
  2269.         )
  2270.     ))
  2271. )
  2272.  
  2273. (if (= bool 1)
  2274.     (
  2275.         (working #wrk_rundecrunch)
  2276.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-run))
  2277.         (if  ( <> COMPERROR 0)
  2278.             (message #decrunch_error)
  2279.         )
  2280.     )
  2281. )
  2282. ;==================================================================================
  2283.  
  2284. ; Diskette 2 einlegen! **********************************************************************************
  2285.  
  2286. (askdisk
  2287.     (prompt #prp-insert-disk2)
  2288.     (help #askdir-help)
  2289.     (dest "StormC_Disk2")
  2290. )
  2291.  
  2292. ;============= ASM- Includes =====================================================
  2293.  
  2294. (complete 40)
  2295.  
  2296. (makeassign "lhex_temp" destasminclude)
  2297.  
  2298. ; // Includes entpacken
  2299.  
  2300. (set bool 1)
  2301.  
  2302. (set destincludeexists  (tackon destasminclude "lvo.i"))
  2303.  
  2304. (if (AND (> @user-level 0) (> (exists destincludeexists) 0))                    ; Includes vorhanden?
  2305.     (
  2306.         (set bool
  2307.             (askbool
  2308.                 (prompt #ask_asmincldecrunch)
  2309.                 (help #auswahlhilfe)
  2310.                 (default 1)
  2311.                 (choices #yeskey #nokey)
  2312.             )
  2313.         )
  2314.     )
  2315. )
  2316.  
  2317. (if (= bool 1)
  2318.     (
  2319.         (working #wrk_asmincldecrunch)
  2320.         (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-asminclude))
  2321.         (if  ( <> INCLERROR 0)
  2322.             (message #decrunch_error)
  2323.         )
  2324.     )
  2325. )
  2326. ;==================================================================================
  2327.  
  2328. ;================== Compiler ====================================================
  2329.  
  2330. (complete 44)
  2331.  
  2332. (makeassign "lhex_temp" destbin)
  2333.  
  2334. (set bool 1)
  2335.  
  2336. (set destbinexists (tackon destbin "STORMC"))
  2337.  
  2338. (if (AND (> @user-level 0) (> (exists destbinexists) 0))    ; Compiler vorhanden?
  2339.     (
  2340.     (if (<> 65537 (getversion destbinexists)) ; ungleich V2.0
  2341.         (
  2342.         (set bool 1)
  2343.         )
  2344.     ))
  2345. )
  2346.  
  2347. (if (= bool 1)                                              ; Compiler entpacken
  2348.     (
  2349.     (working #wrk_compdecrunch)
  2350.     (makeassign "lhex_temp" destbin)
  2351.  
  2352.     (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-compiler))
  2353.     (if  ( <> COMPERROR 0)
  2354.         (message #decrunch_error)
  2355.     ))
  2356. )
  2357. ;==================================================================================
  2358.  
  2359. ;================= Storm.Library ==================================================
  2360.  
  2361. (complete 47)
  2362.  
  2363. (makeassign "lhex_temp" destbin)
  2364.  
  2365. (set bool 1)
  2366.  
  2367. (set destbinexists (tackon destbin "AppManager.library"))
  2368.  
  2369. (if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Menumanager.Library vorhanden?
  2370.     (
  2371.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2372.         (
  2373.         (set bool 1)
  2374.         )
  2375.     ))
  2376. )
  2377.  
  2378. (if (= bool 1)
  2379.     (
  2380.         (working #wrk_stormlibdecrunch)
  2381.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-stormlib))
  2382.         (if  ( <> COMPERROR 0)
  2383.             (message #decrunch_error)
  2384.         )
  2385.     )
  2386. )
  2387. ;==================================================================================
  2388.  
  2389. ;==================== Linker ======================================================
  2390.  
  2391. (complete 50)
  2392.  
  2393. (makeassign "lhex_temp" destbin)
  2394.  
  2395. (set bool 1)
  2396.  
  2397. (set destbinexists      (tackon destbin "STORMLINK"))
  2398.  
  2399. (if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; Linker vorhanden?
  2400.     (
  2401.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2402.         (
  2403.         (set bool 1)
  2404.         )
  2405.     ))
  2406. )
  2407.  
  2408. (if (= bool 1)
  2409.     (
  2410.     (working #wrk_linkdecrunch)
  2411.     (makeassign "lhex_temp" destbin)
  2412.  
  2413.     (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-linker))
  2414.     (if  ( <> COMPERROR 0)
  2415.         (message #decrunch_error)
  2416.     ))
  2417. )
  2418. ;==================================================================================
  2419. ;==================================================================================
  2420.  
  2421. ; // MUI Libraries entpacken
  2422.  
  2423. (complete 53)
  2424.  
  2425. (set bool 1)
  2426.  
  2427. (set destlibexists (tackon destmuilib "Lib/TWiMUI.Lib"))
  2428.  
  2429. (if (AND (> @user-level 0) (> (exists destlibexists) 0))          ; // Libs vorhanden?
  2430.     (
  2431.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2432.         (
  2433.         (set bool 1)
  2434.         )
  2435.     ))
  2436. )
  2437.  
  2438. (if (= bool 1)
  2439.     (
  2440.     (working #wrk_muilibdecrunch)
  2441.     (makeassign "lhex_temp" destmuilib)
  2442.     (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-muilib))
  2443.     (if  ( <> INCLERROR 0)
  2444.         (message #decrunch_error)
  2445.         )
  2446.  
  2447.     (set muilibsource (tackon destmuilib "Lib"))
  2448.  
  2449.     (copyfiles
  2450.         (dest destlib)
  2451.         (source muilibsource)
  2452.         (all)
  2453.         )
  2454.  
  2455.     (set muilibsource (tackon destmuilib "Include"))
  2456.  
  2457.     (copyfiles
  2458.         (dest destinclude)
  2459.         (source muilibsource)
  2460.         (all)
  2461.         )
  2462.     )
  2463. )
  2464.  
  2465. ;==================================================================================
  2466.  
  2467. ;============= StormDisassmnbler====================================================
  2468.  
  2469. (complete 56)
  2470.  
  2471. (makeassign "lhex_temp" destbin)
  2472.  
  2473. (set bool 1)
  2474.  
  2475. (set destbinexists      (tackon destbin "StormDisAsm"))
  2476.  
  2477. (if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; StormDisasm vorhanden?
  2478.     (
  2479.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2480.         (
  2481.         (set bool 1)
  2482.         )
  2483.     ))
  2484. )
  2485.  
  2486. (if (= bool 1)
  2487.     (
  2488.         (working #wrk_disasmdecrunch)
  2489.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-disasm))
  2490.         (if  ( <> COMPERROR 0)
  2491.             (message #decrunch_error)
  2492.         )
  2493.     )
  2494. )
  2495. ;==================================================================================
  2496.  
  2497.  
  2498. ; Diskette 3 einlegen! **********************************************************************************
  2499.  
  2500. (askdisk
  2501.     (prompt #prp-insert-disk3)
  2502.     (help #askdir-help)
  2503.     (dest "StormC_Disk3")
  2504. )
  2505.  
  2506. ;============= Includes ===========================================================
  2507.  
  2508. (complete 57)
  2509.  
  2510. (makeassign "lhex_temp" destinclude)
  2511.  
  2512. ; // Includes entpacken
  2513.  
  2514. (set bool 1)
  2515.  
  2516. (set destincludeexists  (tackon destinclude "assert.h"))
  2517.  
  2518. (if (AND (> @user-level 0) (> (exists destincludeexists) 0))                    ; Includes vorhanden?
  2519.     (
  2520.         (set bool
  2521.             (askbool
  2522.                 (prompt #ask_incldecrunch)
  2523.                 (help #auswahlhilfe)
  2524.                 (default 1)
  2525.                 (choices #yeskey #nokey)
  2526.             )
  2527.         )
  2528.     )
  2529. )
  2530.  
  2531. (if (= bool 1)
  2532.     (
  2533.         (working #wrk_incldecrunch)
  2534.         (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-include))
  2535.         (if  ( <> INCLERROR 0)
  2536.             (message #decrunch_error)
  2537.         )
  2538.     )
  2539. )
  2540. ;==================================================================================
  2541.  
  2542. ;================= Libraries ======================================================
  2543.  
  2544. (makeassign "lhex_temp")
  2545.  
  2546. (complete 60)
  2547.  
  2548. ; // Libraries entpacken
  2549.  
  2550. (set bool 1)
  2551.  
  2552. (set destlibexists (tackon destlib "Storm.Lib"))
  2553.  
  2554. (if (AND (> @user-level 0) (> (exists destlibexists) 0))          ; // Libs vorhanden?
  2555.     (
  2556.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2557.         (
  2558.         (set bool 1)
  2559.         )
  2560.     ))
  2561. )
  2562.  
  2563. (if (= bool 1)
  2564.     (
  2565.     (working #wrk_libdecrunch)
  2566.     (makeassign "lhex_temp" destlib)
  2567.     (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-libs))
  2568.     (if  ( <> INCLERROR 0)
  2569.         (message #decrunch_error)
  2570.     ))
  2571. )
  2572. ;==================================================================================
  2573.  
  2574. ;===================== Librarian ==================================================
  2575.  
  2576. (complete 66)
  2577.  
  2578. (makeassign "lhex_temp" destbin)
  2579.  
  2580. (set bool 1)
  2581.  
  2582. (set destbinexists (tackon destbin "STORMLibrarian"))
  2583.  
  2584. (if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; librarian vorhanden?
  2585.     (
  2586.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2587.         (
  2588.         (set bool 1)
  2589.         )
  2590.     ))
  2591. )
  2592.  
  2593. (if (= bool 1)
  2594.     (
  2595.     (working #wrk_librariandecrunch)
  2596.     (makeassign "lhex_temp" destbin)
  2597.  
  2598.     (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-librarian))
  2599.     (if  ( <> COMPERROR 0)
  2600.         (message #decrunch_error)
  2601.     ))
  2602. )
  2603.  
  2604. ;==================================================================================
  2605.  
  2606. ;============= StormASM ===========================================================
  2607.  
  2608. (complete 68)
  2609.  
  2610. (makeassign "lhex_temp" destbin)
  2611.  
  2612. (set bool 1)
  2613.  
  2614. (set destbinexists      (tackon destbin "STORMASM"))
  2615.  
  2616. (if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; StormASM vorhanden?
  2617.     (
  2618.         (set bool
  2619.             (askbool
  2620.                 (prompt #ask_asmdecrunch)
  2621.                 (help #auswahlhilfe)
  2622.                 (default 1)
  2623.                 (choices #yeskey #nokey)
  2624.             )
  2625.         )
  2626.     )
  2627. )
  2628.  
  2629. (if (= bool 1)
  2630.     (
  2631.         (working #wrk_asmdecrunch)
  2632.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-asm))
  2633.         (if  ( <> COMPERROR 0)
  2634.             (message #decrunch_error)
  2635.         )
  2636.     )
  2637. )
  2638. ;==================================================================================
  2639.  
  2640. ;============= StormCPP ===========================================================
  2641.  
  2642. (complete 70)
  2643.  
  2644. (makeassign "lhex_temp" destbin)
  2645.  
  2646. (set bool 1)
  2647.  
  2648. (set destbinexists      (tackon destbin "STORMCPP"))
  2649.  
  2650. (if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; StormCPP vorhanden?
  2651.     (
  2652.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2653.         (
  2654.         (set bool 1)
  2655.         )
  2656.     ))
  2657. )
  2658.  
  2659. (if (= bool 1)
  2660.     (
  2661.         (working #wrk_cppdecrunch)
  2662.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-cpp))
  2663.         (if  ( <> COMPERROR 0)
  2664.             (message #decrunch_error)
  2665.         )
  2666.     )
  2667. )
  2668. ;==================================================================================
  2669.  
  2670. ;============= StormCustom ===========================================================
  2671.  
  2672. (complete 71)
  2673.  
  2674. (makeassign "lhex_temp" destbin)
  2675.  
  2676. (set bool 1)
  2677.  
  2678. (set destbinexists      (tackon destbin "StormCustom"))
  2679.  
  2680. (if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; StormCustom vorhanden?
  2681.     (
  2682.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2683.         (
  2684.         (set bool 1)
  2685.         )
  2686.     ))
  2687. )
  2688.  
  2689. (if (= bool 1)
  2690.     (
  2691.         (working #wrk_customdecrunch)
  2692.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-custom))
  2693.         (if  ( <> COMPERROR 0)
  2694.             (message #decrunch_error)
  2695.         )
  2696.     )
  2697. )
  2698. ;==================================================================================
  2699.  
  2700. ; Diskette 4 einlegen! **********************************************************************************
  2701.  
  2702. (askdisk
  2703.     (prompt #prp-insert-disk4)
  2704.     (help #askdir-help)
  2705.     (dest "StormC_Disk4")
  2706. )
  2707.  
  2708. ;================= Online Help ====================================================
  2709.  
  2710. (complete 74)
  2711.  
  2712. (makeassign "lhex_temp" desthelp)
  2713.  
  2714. (set bool 1)
  2715.  
  2716. (set destbinexists (tackon desthelp "StormReference.guide"))
  2717.  
  2718. (if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Online-Help vorhanden?
  2719.     (
  2720.         (set bool
  2721.             (askbool
  2722.                 (prompt #ask_onlinedocudecrunch)
  2723.                     (help #auswahlhilfe)
  2724.                     (default 1)
  2725.                     (choices #yeskey #nokey)
  2726.             )
  2727.         )
  2728.     )
  2729. )
  2730.  
  2731. (if (= bool 1)
  2732.     (
  2733.         (working #wrk_onlinedocudecrunch)
  2734.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-onlinedocu))
  2735.         (if  ( <> COMPERROR 0)
  2736.             (message #decrunch_error)
  2737.         )
  2738.     )
  2739. )
  2740. ;==================================================================================
  2741.  
  2742. ;================= Rexx-Skripts  ====================================================
  2743.  
  2744. (complete 78)
  2745.  
  2746. (makeassign "lhex_temp" destrexx)
  2747.  
  2748. (set bool 1)
  2749.  
  2750. (set destbinexists (tackon desthelp "fd2pragma.srx"))
  2751.  
  2752. (if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Rexx-Skript vorhanden?
  2753.     (
  2754.         (set bool
  2755.             (askbool
  2756.                 (prompt #ask_rexxdecrunch)
  2757.                     (help #auswahlhilfe)
  2758.                     (default 1)
  2759.                     (choices #yeskey #nokey)
  2760.             )
  2761.         )
  2762.     )
  2763. )
  2764.  
  2765. (if (= bool 1)
  2766.     (
  2767.         (working #wrk_rexxdecrunch)
  2768.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-rexx))
  2769.         (if  ( <> COMPERROR 0)
  2770.             (message #decrunch_error)
  2771.         )
  2772.     )
  2773. )
  2774. ;==================================================================================
  2775.  
  2776.  
  2777. ;==================================================================================
  2778.  
  2779. ; Diskette 5 einlegen! **********************************************************************************
  2780.  
  2781. (askdisk
  2782.     (prompt #prp-insert-disk5)
  2783.     (help #askdir-help)
  2784.     (dest "StormC_Disk5")
  2785. )
  2786.  
  2787. ;================= Fast-Library====================================================
  2788.  
  2789. (makeassign "lhex_temp")
  2790.  
  2791. (complete 63)
  2792.  
  2793. ; // Libraries entpacken
  2794.  
  2795. (set bool 1)
  2796.  
  2797. (set destlibexists (tackon destfastlib "lib/StormAmiga.Lib"))
  2798.  
  2799. (if (AND (> @user-level 0) (> (exists destlibexists) 0))          ; // Libs vorhanden?
  2800.     (
  2801.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2802.         (
  2803.         (set bool 1)
  2804.         )
  2805.     ))
  2806. )
  2807.  
  2808. (if (= bool 1)
  2809.     (
  2810.     (working #wrk_fastlibdecrunch)
  2811.     (makeassign "lhex_temp" destfastlib)
  2812.     (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-fastlib))
  2813.     (if  ( <> INCLERROR 0)
  2814.         (message #decrunch_error)
  2815.         )
  2816.  
  2817. ;    (copyfiles
  2818. ;        (dest destlib)
  2819. ;        (source destlibexists)
  2820. ;        )
  2821.  
  2822.     )
  2823. )
  2824. ;==================================================================================
  2825.  
  2826. ;================= Wizard.Library ================================================
  2827.  
  2828. (complete 80)
  2829.  
  2830. (makeassign "lhex_temp" "RAM:")
  2831.  
  2832. (set bool 1)
  2833.  
  2834. (if (= bool 1)
  2835.     (
  2836.         (working #wrk_stormlibdecrunch)
  2837.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-wizardlib))
  2838.         (if  ( <> COMPERROR 0)
  2839.             (message #decrunch_error)
  2840.         )
  2841.     )
  2842. )
  2843.  
  2844. (if (exists "RAM:Wizard.library")
  2845.     (
  2846.         (copylib
  2847.  
  2848.             (prompt  #stormc_install_wizardlib)
  2849.             (help    #stormc_install_wizardlib_help)
  2850.             (source  "ram:wizard.library")
  2851.             (dest    "libs:")
  2852.             (confirm)
  2853.         )
  2854.     (delete "RAM:Wizard.library")
  2855.     )
  2856. )
  2857.  
  2858.  
  2859. ;===================== EDITOR =====================================================
  2860.  
  2861. (makeassign "lhex_temp" destbin)
  2862.  
  2863. (set bool 1)
  2864.  
  2865. (set destbinexists (tackon destbin "STORMED"))
  2866.  
  2867. (if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; Editor vorhanden?
  2868.     (
  2869.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2870.         (
  2871.         (set bool 1)
  2872.         )
  2873.     ))
  2874. )
  2875.  
  2876. (if (= bool 1)
  2877.     (
  2878.     (working #wrk_eddecrunch)
  2879.     (makeassign "lhex_temp" destbin)
  2880.  
  2881.     (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-editor))
  2882.     (if  ( <> COMPERROR 0)
  2883.         (message #decrunch_error)
  2884.     ))
  2885. )
  2886. ;==================================================================================
  2887.  
  2888. ;============= StormShell =========================================================
  2889.  
  2890. (complete 82)
  2891.  
  2892. (makeassign "lhex_temp" destbin)
  2893.  
  2894. (set bool 1)
  2895.  
  2896. (set destbinexists      (tackon destbin "STORMSHELL"))
  2897.  
  2898. (if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; Shell vorhanden?
  2899.     (
  2900.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2901.         (
  2902.         (set bool 1)
  2903.         )
  2904.     ))
  2905. )
  2906.  
  2907. (if (= bool 1)
  2908.     (
  2909.         (working #wrk_shelldecrunch)
  2910.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-shell))
  2911.         (if  ( <> COMPERROR 0)
  2912.             (message #decrunch_error)
  2913.         )
  2914.     )
  2915. )
  2916. ;==================================================================================
  2917.  
  2918. ;============= PhxAss Entpacken ===================================================
  2919.  
  2920. (complete 84)
  2921.  
  2922. (makeassign "lhex_temp" destphxass)
  2923.  
  2924. ; // Includes entpacken
  2925.  
  2926. (set bool 1)
  2927.  
  2928. (set destbinexists (tackon destphxass "phxass.guide"))
  2929.  
  2930. (if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; ASM vorhanden?
  2931.     (
  2932.         (set bool
  2933.             (askbool
  2934.                 (prompt #ask_phxassdecrunch)
  2935.                 (help #auswahlhilfe)
  2936.                 (default 1)
  2937.                 (choices #yeskey #nokey)
  2938.             )
  2939.         )
  2940.     )
  2941. )
  2942.  
  2943. (if (= bool 1)
  2944.     (
  2945.         (working #wrk_phxassdecrunch)
  2946.         (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-phxass))
  2947.         (if  ( <> INCLERROR 0)
  2948.             (message #decrunch_error)
  2949.         )
  2950.     )
  2951. )
  2952.  
  2953. (Set sourcephxass (tackon destphxass "BIN/FreePhxASS"))
  2954.  
  2955. (if (exists sourcephxass)
  2956.     (
  2957.         (working #wrk_phxassdecrunch)
  2958.         (copyfiles
  2959.             (source sourcephxass)
  2960.             (dest destbin)
  2961.             (newname "PhxASS")
  2962.         )
  2963.     )
  2964. )
  2965. ;==================================================================================
  2966.  
  2967. ; Diskette 6 einlegen! **********************************************************************************
  2968.  
  2969. (askdisk
  2970.     (prompt #prp-insert-disk6)
  2971.     (help #askdir-help)
  2972.     (dest "StormC_Disk6")
  2973. )
  2974.  
  2975.  
  2976.  
  2977. ;============= Startup ändern =====================================================
  2978.  
  2979. (complete 99)
  2980.  
  2981.  
  2982. ; ------- STARTUP ÄNDERN
  2983.  
  2984. (set #startuptemp (cat "\nASSIGN STORMC: " folder "\n"))
  2985.  
  2986. (set #startup (cat "\n"
  2987.     "To get StormC work well there has to be made\n"
  2988.     "some changes to your User-Startup.\n\n"
  2989.     #startuptemp
  2990.     ))
  2991.  
  2992. (set #endnow (cat "Installation of StormC V2.0 completed.\n"
  2993.     "When the lines:\n" #startuptemp "\ndo not appear\n"
  2994.     "in your Startup-Sequence or User-Startup,\n"
  2995.     "please do it manually.\n\n"
  2996.     "Remove all disks and start StormC.\n\n"
  2997.     "Best wishes..."
  2998.     "HAAGE & PARTNER"
  2999.     ))
  3000.  
  3001. (if (= @language "deutsch") (
  3002.  
  3003. (set #startup (cat "\n"
  3004.     "Um mit StormC richtig arbeiten zu können, muß \n"
  3005.     "eine Änderung an der User-Startup vorgenommen \n"
  3006.     "werden:                                       \n"
  3007.     "                                              \n"
  3008.     #startuptemp
  3009.     ))
  3010.  
  3011. (set #endnow (cat "\n"
  3012.     "Installation des StormC Compilers V2.0 beendet.\n\n"
  3013.     "Falls die Zeile:\n" #startuptemp "\n"
  3014.     "nicht in Ihre User-Startup eingefügt wurde,   \n"
  3015.     "dann holen Sie dies bitte nach.               \n\n"
  3016.     "Entfernen Sie nun die Diskette aus Ihrem      \n"
  3017.     "Laufwerk und starten Sie StormC.              \n\n"
  3018.     "Wir wünschen Ihnen viel Erfolg bei der Lösung \n"
  3019.     "Ihrer Programmieraufgaben!"
  3020.     ))
  3021. ))
  3022.  
  3023. (startup "StormC"
  3024.     (prompt #startup)
  3025.     (help #help-startup)
  3026.     (command #startuptemp)
  3027. )
  3028.  
  3029. (makeassign "STORMC")
  3030. (makeassign "STORMC" folder)
  3031.  
  3032. (delete "RAM:LHeX")
  3033.  
  3034. (complete 100)
  3035.  
  3036. ; ------- FERTIG
  3037.  
  3038. (working #wrk_changingtooltypes)
  3039.  
  3040. (if (= colorset 1)
  3041.     (
  3042.         (tooltype
  3043.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3044.             (setstack 15000)
  3045.             (settooltype "PUBSCREEN" #pubscvar)
  3046.             (settooltype "QUIET" #quietvar)
  3047.             (settooltype "HOTHELP" #hothelpvar)
  3048.             (settooltype "GOLDED" #goldedvar)
  3049.             (settooltype "SAVEMEM" #savememvar)
  3050.             (dest "StormC:Examples/Colorwheel/Colorwheel.¶")
  3051.         )
  3052.         (tooltype
  3053.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3054.             (setstack 15000)
  3055.             (settooltype "PUBSCREEN" #pubscvar)
  3056.             (settooltype "QUIET" #quietvar)
  3057.             (settooltype "HOTHELP" #hothelpvar)
  3058.             (settooltype "GOLDED" #goldedvar)
  3059.             (settooltype "SAVEMEM" #savememvar)
  3060.             (dest "StormC:Examples/DebugTutorial/DebugTutorial.¶")
  3061.         )
  3062.         (tooltype
  3063.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3064.             (setstack 15000)
  3065.             (settooltype "PUBSCREEN" #pubscvar)
  3066.             (settooltype "QUIET" #quietvar)
  3067.             (settooltype "HOTHELP" #hothelpvar)
  3068.             (settooltype "GOLDED" #goldedvar)
  3069.             (settooltype "SAVEMEM" #savememvar)
  3070.             (dest "StormC:Examples/Fplot/Fplot.¶")
  3071.         )
  3072.         (tooltype
  3073.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3074.             (setstack 15000)
  3075.             (settooltype "PUBSCREEN" #pubscvar)
  3076.             (settooltype "QUIET" #quietvar)
  3077.             (settooltype "HOTHELP" #hothelpvar)
  3078.             (settooltype "GOLDED" #goldedvar)
  3079.             (settooltype "SAVEMEM" #savememvar)
  3080.             (dest "StormC:Examples/Gadtools/Gadtools.¶")
  3081.         )
  3082.         (tooltype
  3083.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3084.             (setstack 15000)
  3085.             (settooltype "PUBSCREEN" #pubscvar)
  3086.             (settooltype "QUIET" #quietvar)
  3087.             (settooltype "HOTHELP" #hothelpvar)
  3088.             (settooltype "GOLDED" #goldedvar)
  3089.             (settooltype "SAVEMEM" #savememvar)
  3090.             (dest "StormC:Examples/Illresource/Illresource.¶")
  3091.         )
  3092.         (tooltype
  3093.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3094.             (setstack 15000)
  3095.             (settooltype "PUBSCREEN" #pubscvar)
  3096.             (settooltype "QUIET" #quietvar)
  3097.             (settooltype "HOTHELP" #hothelpvar)
  3098.             (settooltype "GOLDED" #goldedvar)
  3099.             (settooltype "SAVEMEM" #savememvar)
  3100.             (dest "StormC:Examples/Parser/Parser.¶")
  3101.         )
  3102.         (tooltype
  3103.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3104.             (setstack 15000)
  3105.             (settooltype "PUBSCREEN" #pubscvar)
  3106.             (settooltype "QUIET" #quietvar)
  3107.             (settooltype "HOTHELP" #hothelpvar)
  3108.             (settooltype "GOLDED" #goldedvar)
  3109.             (settooltype "SAVEMEM" #savememvar)
  3110.             (dest "StormC:Examples/Pi/Drops.¶")
  3111.         )
  3112.         (tooltype
  3113.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3114.             (setstack 15000)
  3115.             (settooltype "PUBSCREEN" #pubscvar)
  3116.             (settooltype "QUIET" #quietvar)
  3117.             (settooltype "HOTHELP" #hothelpvar)
  3118.             (settooltype "GOLDED" #goldedvar)
  3119.             (settooltype "SAVEMEM" #savememvar)
  3120.             (dest "StormC:Examples/shard lib example/lib.¶")
  3121.         )
  3122.         (tooltype
  3123.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3124.             (setstack 15000)
  3125.             (settooltype "PUBSCREEN" #pubscvar)
  3126.             (settooltype "QUIET" #quietvar)
  3127.             (settooltype "HOTHELP" #hothelpvar)
  3128.             (settooltype "GOLDED" #goldedvar)
  3129.             (settooltype "SAVEMEM" #savememvar)
  3130.             (dest "StormC:Examples/shard lib example/test.¶")
  3131.         )
  3132.  
  3133.         (tooltype
  3134.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3135.             (setstack 15000)
  3136.             (settooltype "PUBSCREEN" #pubscvar)
  3137.             (settooltype "QUIET" #quietvar)
  3138.             (settooltype "HOTHELP" #hothelpvar)
  3139.             (settooltype "GOLDED" #goldedvar)
  3140.             (settooltype "SAVEMEM" #savememvar)
  3141.             (dest "Env:StormCPP/def_project")
  3142.         )
  3143.         (tooltype
  3144.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3145.             (setstack 15000)
  3146.             (settooltype "PUBSCREEN" #pubscvar)
  3147.             (settooltype "QUIET" #quietvar)
  3148.             (settooltype "HOTHELP" #hothelpvar)
  3149.             (settooltype "GOLDED" #goldedvar)
  3150.             (settooltype "SAVEMEM" #savememvar)
  3151.             (dest "Env:StormCPP/def_text")
  3152.         )
  3153.         (tooltype
  3154.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3155.             (setstack 15000)
  3156.             (settooltype "PUBSCREEN" #pubscvar)
  3157.             (settooltype "QUIET" #quietvar)
  3158.             (settooltype "HOTHELP" #hothelpvar)
  3159.             (settooltype "GOLDED" #goldedvar)
  3160.             (settooltype "SAVEMEM" #savememvar)
  3161.             (dest "Env:StormCPP/def_text.c")
  3162.         )
  3163.         (tooltype
  3164.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3165.             (setstack 15000)
  3166.             (settooltype "PUBSCREEN" #pubscvar)
  3167.             (settooltype "QUIET" #quietvar)
  3168.             (settooltype "HOTHELP" #hothelpvar)
  3169.             (settooltype "GOLDED" #goldedvar)
  3170.             (settooltype "SAVEMEM" #savememvar)
  3171.             (dest "Env:StormCPP/def_text.cc")
  3172.         )
  3173.         (tooltype
  3174.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3175.             (setstack 15000)
  3176.             (settooltype "PUBSCREEN" #pubscvar)
  3177.             (settooltype "QUIET" #quietvar)
  3178.             (settooltype "HOTHELP" #hothelpvar)
  3179.             (settooltype "GOLDED" #goldedvar)
  3180.             (settooltype "SAVEMEM" #savememvar)
  3181.             (dest "Env:StormCPP/def_text.cpp")
  3182.         )
  3183.         (tooltype
  3184.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3185.             (setstack 15000)
  3186.             (settooltype "PUBSCREEN" #pubscvar)
  3187.             (settooltype "QUIET" #quietvar)
  3188.             (settooltype "HOTHELP" #hothelpvar)
  3189.             (settooltype "GOLDED" #goldedvar)
  3190.             (settooltype "SAVEMEM" #savememvar)
  3191.             (dest "Env:StormCPP/def_text.h")
  3192.         )
  3193.         (tooltype
  3194.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3195.             (setstack 15000)
  3196.             (settooltype "PUBSCREEN" #pubscvar)
  3197.             (settooltype "QUIET" #quietvar)
  3198.             (settooltype "HOTHELP" #hothelpvar)
  3199.             (settooltype "GOLDED" #goldedvar)
  3200.             (settooltype "SAVEMEM" #savememvar)
  3201.             (dest "Envarc:StormCPP/def_project")
  3202.         )
  3203.         (tooltype
  3204.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3205.             (setstack 15000)
  3206.             (settooltype "PUBSCREEN" #pubscvar)
  3207.             (settooltype "QUIET" #quietvar)
  3208.             (settooltype "HOTHELP" #hothelpvar)
  3209.             (settooltype "GOLDED" #goldedvar)
  3210.             (settooltype "SAVEMEM" #savememvar)
  3211.             (dest "Envarc:StormCPP/def_text")
  3212.         )
  3213.         (tooltype
  3214.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3215.             (setstack 15000)
  3216.             (settooltype "PUBSCREEN" #pubscvar)
  3217.             (settooltype "QUIET" #quietvar)
  3218.             (settooltype "HOTHELP" #hothelpvar)
  3219.             (settooltype "GOLDED" #goldedvar)
  3220.             (settooltype "SAVEMEM" #savememvar)
  3221.             (dest "Envarc:StormCPP/def_text.c")
  3222.         )
  3223.         (tooltype
  3224.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3225.             (setstack 15000)
  3226.             (settooltype "PUBSCREEN" #pubscvar)
  3227.             (settooltype "QUIET" #quietvar)
  3228.             (settooltype "HOTHELP" #hothelpvar)
  3229.             (settooltype "GOLDED" #goldedvar)
  3230.             (settooltype "SAVEMEM" #savememvar)
  3231.             (dest "Envarc:StormCPP/def_text.cc")
  3232.         )
  3233.         (tooltype
  3234.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3235.             (setstack 15000)
  3236.             (settooltype "PUBSCREEN" #pubscvar)
  3237.             (settooltype "QUIET" #quietvar)
  3238.             (settooltype "HOTHELP" #hothelpvar)
  3239.             (settooltype "GOLDED" #goldedvar)
  3240.             (settooltype "SAVEMEM" #savememvar)
  3241.             (dest "Envarc:StormCPP/def_text.cpp")
  3242.         )
  3243.         (tooltype
  3244.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3245.             (setstack 15000)
  3246.             (settooltype "PUBSCREEN" #pubscvar)
  3247.             (settooltype "QUIET" #quietvar)
  3248.             (settooltype "HOTHELP" #hothelpvar)
  3249.             (settooltype "GOLDED" #goldedvar)
  3250.             (settooltype "SAVEMEM" #savememvar)
  3251.             (dest "Envarc:StormCPP/def_text.h")
  3252.         )
  3253.     (message #yessyntaxcolouring_hint) ; // Farbliche Syntaxunterscheidung
  3254.  
  3255.     )
  3256.     (
  3257.         (tooltype
  3258.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3259.             (setstack 15000)
  3260.             (settooltype "PUBSCREEN" #pubscvar)
  3261.             (settooltype "QUIET" #quietvar)
  3262.             (settooltype "HOTHELP" #hothelpvar)
  3263.             (settooltype "GOLDED" #goldedvar)
  3264.             (settooltype "SAVEMEM" #savememvar)
  3265.             (settooltype "DICTIONARIES" "0")
  3266.             (settooltype "SYNTAXCOLORING" "0")
  3267.             (dest "StormC:Examples/Colorwheel/Colorwheel.¶")
  3268.         )
  3269.         (tooltype
  3270.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3271.             (setstack 15000)
  3272.             (settooltype "PUBSCREEN" #pubscvar)
  3273.             (settooltype "QUIET" #quietvar)
  3274.             (settooltype "HOTHELP" #hothelpvar)
  3275.             (settooltype "GOLDED" #goldedvar)
  3276.             (settooltype "SAVEMEM" #savememvar)
  3277.             (settooltype "DICTIONARIES" "0")
  3278.             (settooltype "SYNTAXCOLORING" "0")
  3279.             (dest "StormC:Examples/DebugTutorial/DebugTutorial.¶")
  3280.         )
  3281.         (tooltype
  3282.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3283.             (setstack 15000)
  3284.             (settooltype "PUBSCREEN" #pubscvar)
  3285.             (settooltype "QUIET" #quietvar)
  3286.             (settooltype "HOTHELP" #hothelpvar)
  3287.             (settooltype "GOLDED" #goldedvar)
  3288.             (settooltype "SAVEMEM" #savememvar)
  3289.             (settooltype "DICTIONARIES" "0")
  3290.             (settooltype "SYNTAXCOLORING" "0")
  3291.             (dest "StormC:Examples/Fplot/Fplot.¶")
  3292.         )
  3293.         (tooltype
  3294.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3295.             (setstack 15000)
  3296.             (settooltype "PUBSCREEN" #pubscvar)
  3297.             (settooltype "QUIET" #quietvar)
  3298.             (settooltype "HOTHELP" #hothelpvar)
  3299.             (settooltype "GOLDED" #goldedvar)
  3300.             (settooltype "SAVEMEM" #savememvar)
  3301.             (settooltype "DICTIONARIES" "0")
  3302.             (settooltype "SYNTAXCOLORING" "0")
  3303.             (dest "StormC:Examples/Gadtools/Gadtools.¶")
  3304.         )
  3305.         (tooltype
  3306.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3307.             (setstack 15000)
  3308.             (settooltype "PUBSCREEN" #pubscvar)
  3309.             (settooltype "QUIET" #quietvar)
  3310.             (settooltype "HOTHELP" #hothelpvar)
  3311.             (settooltype "GOLDED" #goldedvar)
  3312.             (settooltype "SAVEMEM" #savememvar)
  3313.             (settooltype "DICTIONARIES" "0")
  3314.             (settooltype "SYNTAXCOLORING" "0")
  3315.             (dest "StormC:Examples/Illresource/Illresource.¶")
  3316.         )
  3317.         (tooltype
  3318.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3319.             (setstack 15000)
  3320.             (settooltype "PUBSCREEN" #pubscvar)
  3321.             (settooltype "QUIET" #quietvar)
  3322.             (settooltype "HOTHELP" #hothelpvar)
  3323.             (settooltype "GOLDED" #goldedvar)
  3324.             (settooltype "SAVEMEM" #savememvar)
  3325.             (settooltype "DICTIONARIES" "0")
  3326.             (settooltype "SYNTAXCOLORING" "0")
  3327.             (dest "StormC:Examples/Parser/Parser.¶")
  3328.         )
  3329.         (tooltype
  3330.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3331.             (setstack 15000)
  3332.             (settooltype "PUBSCREEN" #pubscvar)
  3333.             (settooltype "QUIET" #quietvar)
  3334.             (settooltype "HOTHELP" #hothelpvar)
  3335.             (settooltype "GOLDED" #goldedvar)
  3336.             (settooltype "SAVEMEM" #savememvar)
  3337.             (settooltype "DICTIONARIES" "0")
  3338.             (settooltype "SYNTAXCOLORING" "0")
  3339.             (dest "StormC:Examples/Pi/Drops.¶")
  3340.         )
  3341.         (tooltype
  3342.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3343.             (setstack 15000)
  3344.             (settooltype "PUBSCREEN" #pubscvar)
  3345.             (settooltype "QUIET" #quietvar)
  3346.             (settooltype "HOTHELP" #hothelpvar)
  3347.             (settooltype "GOLDED" #goldedvar)
  3348.             (settooltype "SAVEMEM" #savememvar)
  3349.             (settooltype "DICTIONARIES" "0")
  3350.             (settooltype "SYNTAXCOLORING" "0")
  3351.             (dest "StormC:Examples/shard lib example/lib.¶")
  3352.         )
  3353.         (tooltype
  3354.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3355.             (setstack 15000)
  3356.             (settooltype "PUBSCREEN" #pubscvar)
  3357.             (settooltype "QUIET" #quietvar)
  3358.             (settooltype "HOTHELP" #hothelpvar)
  3359.             (settooltype "GOLDED" #goldedvar)
  3360.             (settooltype "SAVEMEM" #savememvar)
  3361.             (settooltype "DICTIONARIES" "0")
  3362.             (settooltype "SYNTAXCOLORING" "0")
  3363.             (dest "StormC:Examples/shard lib example/test.¶")
  3364.         )
  3365.  
  3366.         (tooltype
  3367.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3368.             (setstack 15000)
  3369.             (settooltype "PUBSCREEN" #pubscvar)
  3370.             (settooltype "QUIET" #quietvar)
  3371.             (settooltype "HOTHELP" #hothelpvar)
  3372.             (settooltype "GOLDED" #goldedvar)
  3373.             (settooltype "SAVEMEM" #savememvar)
  3374.             (settooltype "DICTIONARIES" "0")
  3375.             (settooltype "SYNTAXCOLORING" "0")
  3376.             (dest "Env:StormCPP/def_project")
  3377.         )
  3378.         (tooltype
  3379.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3380.             (setstack 15000)
  3381.             (settooltype "PUBSCREEN" #pubscvar)
  3382.             (settooltype "QUIET" #quietvar)
  3383.             (settooltype "HOTHELP" #hothelpvar)
  3384.             (settooltype "GOLDED" #goldedvar)
  3385.             (settooltype "SAVEMEM" #savememvar)
  3386.             (settooltype "DICTIONARIES" "0")
  3387.             (settooltype "SYNTAXCOLORING" "0")
  3388.             (dest "Env:StormCPP/def_text")
  3389.         )
  3390.         (tooltype
  3391.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3392.             (setstack 15000)
  3393.             (settooltype "PUBSCREEN" #pubscvar)
  3394.             (settooltype "QUIET" #quietvar)
  3395.             (settooltype "HOTHELP" #hothelpvar)
  3396.             (settooltype "GOLDED" #goldedvar)
  3397.             (settooltype "SAVEMEM" #savememvar)
  3398.             (settooltype "DICTIONARIES" "0")
  3399.             (settooltype "SYNTAXCOLORING" "0")
  3400.             (dest "Env:StormCPP/def_text.c")
  3401.         )
  3402.         (tooltype
  3403.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3404.             (setstack 15000)
  3405.             (settooltype "PUBSCREEN" #pubscvar)
  3406.             (settooltype "QUIET" #quietvar)
  3407.             (settooltype "HOTHELP" #hothelpvar)
  3408.             (settooltype "GOLDED" #goldedvar)
  3409.             (settooltype "SAVEMEM" #savememvar)
  3410.             (settooltype "DICTIONARIES" "0")
  3411.             (settooltype "SYNTAXCOLORING" "0")
  3412.             (dest "Env:StormCPP/def_text.cc")
  3413.         )
  3414.         (tooltype
  3415.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3416.             (setstack 15000)
  3417.             (settooltype "PUBSCREEN" #pubscvar)
  3418.             (settooltype "QUIET" #quietvar)
  3419.             (settooltype "HOTHELP" #hothelpvar)
  3420.             (settooltype "GOLDED" #goldedvar)
  3421.             (settooltype "SAVEMEM" #savememvar)
  3422.             (settooltype "DICTIONARIES" "0")
  3423.             (settooltype "SYNTAXCOLORING" "0")
  3424.             (dest "Env:StormCPP/def_text.cpp")
  3425.         )
  3426.         (tooltype
  3427.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3428.             (setstack 15000)
  3429.             (settooltype "PUBSCREEN" #pubscvar)
  3430.             (settooltype "QUIET" #quietvar)
  3431.             (settooltype "HOTHELP" #hothelpvar)
  3432.             (settooltype "GOLDED" #goldedvar)
  3433.             (settooltype "SAVEMEM" #savememvar)
  3434.             (settooltype "DICTIONARIES" "0")
  3435.             (settooltype "SYNTAXCOLORING" "0")
  3436.             (dest "Env:StormCPP/def_text.h")
  3437.         )
  3438.         (tooltype
  3439.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3440.             (setstack 15000)
  3441.             (settooltype "PUBSCREEN" #pubscvar)
  3442.             (settooltype "QUIET" #quietvar)
  3443.             (settooltype "HOTHELP" #hothelpvar)
  3444.             (settooltype "GOLDED" #goldedvar)
  3445.             (settooltype "SAVEMEM" #savememvar)
  3446.             (settooltype "DICTIONARIES" "0")
  3447.             (settooltype "SYNTAXCOLORING" "0")
  3448.             (dest "Envarc:StormCPP/def_project")
  3449.         )
  3450.         (tooltype
  3451.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3452.             (setstack 15000)
  3453.             (settooltype "PUBSCREEN" #pubscvar)
  3454.             (settooltype "QUIET" #quietvar)
  3455.             (settooltype "HOTHELP" #hothelpvar)
  3456.             (settooltype "GOLDED" #goldedvar)
  3457.             (settooltype "SAVEMEM" #savememvar)
  3458.             (settooltype "DICTIONARIES" "0")
  3459.             (settooltype "SYNTAXCOLORING" "0")
  3460.             (dest "Envarc:StormCPP/def_text")
  3461.         )
  3462.         (tooltype
  3463.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3464.             (setstack 15000)
  3465.             (settooltype "PUBSCREEN" #pubscvar)
  3466.             (settooltype "QUIET" #quietvar)
  3467.             (settooltype "HOTHELP" #hothelpvar)
  3468.             (settooltype "GOLDED" #goldedvar)
  3469.             (settooltype "SAVEMEM" #savememvar)
  3470.             (settooltype "DICTIONARIES" "0")
  3471.             (settooltype "SYNTAXCOLORING" "0")
  3472.             (dest "Envarc:StormCPP/def_text.c")
  3473.         )
  3474.         (tooltype
  3475.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3476.             (setstack 15000)
  3477.             (settooltype "PUBSCREEN" #pubscvar)
  3478.             (settooltype "QUIET" #quietvar)
  3479.             (settooltype "HOTHELP" #hothelpvar)
  3480.             (settooltype "GOLDED" #goldedvar)
  3481.             (settooltype "SAVEMEM" #savememvar)
  3482.             (settooltype "DICTIONARIES" "0")
  3483.             (settooltype "SYNTAXCOLORING" "0")
  3484.             (dest "Envarc:StormCPP/def_text.cc")
  3485.         )
  3486.         (tooltype
  3487.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3488.             (setstack 15000)
  3489.             (settooltype "PUBSCREEN" #pubscvar)
  3490.             (settooltype "QUIET" #quietvar)
  3491.             (settooltype "HOTHELP" #hothelpvar)
  3492.             (settooltype "GOLDED" #goldedvar)
  3493.             (settooltype "SAVEMEM" #savememvar)
  3494.             (settooltype "DICTIONARIES" "0")
  3495.             (settooltype "SYNTAXCOLORING" "0")
  3496.             (dest "Envarc:StormCPP/def_text.cpp")
  3497.         )
  3498.         (tooltype
  3499.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3500.             (setstack 15000)
  3501.             (settooltype "PUBSCREEN" #pubscvar)
  3502.             (settooltype "QUIET" #quietvar)
  3503.             (settooltype "HOTHELP" #hothelpvar)
  3504.             (settooltype "GOLDED" #goldedvar)
  3505.             (settooltype "SAVEMEM" #savememvar)
  3506.             (settooltype "DICTIONARIES" "0")
  3507.             (settooltype "SYNTAXCOLORING" "0")
  3508.             (dest "Envarc:StormCPP/def_text.h")
  3509.         )
  3510.     (message #nosyntaxcolouring_hint) ; // Keine farbliche Syntaxunterscheidung
  3511.     )
  3512.  
  3513. )
  3514.  
  3515. (tooltype ; // DEF-LIBRARIAN Piktogramm!
  3516.     (setdefaulttool "StormC:StormSYS/StormCPP")
  3517.     (setstack 15000)
  3518.     (settooltype "PUBSCREEN" #pubscvar)
  3519.     (dest "Envarc:StormCPP/def_librarian")
  3520. )
  3521.  
  3522.  
  3523. (if (= 1 (bitand install_tooltypes 1)) ; // Pubscreen anlegen
  3524.     (
  3525.     (message #pubscreenuse_hint)
  3526.     ))
  3527.  
  3528. (if (= 8 (bitand install_tooltypes 8)) ; // Golded benutzen
  3529.     (
  3530.     (message #goldeduse_hint)
  3531.     ))
  3532.  
  3533. (complete 101)
  3534. (message #endnow) ; // Letzte Meldung
  3535.